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1.0 INTRODUCTION 


To support the documentation of the computer subprograms, test cases for 
the various major computing options of the subprograms have been executed 
and the results compiled. This volume contains these results as well as 
a description of the main program utilized for the test case executions. 
The computer used was the CDC 6600 at the Boeing Computer Services, Inc. 
facility at Renton, Washington. These cases have been executed on a 
CDC 6600 computer at the NASA Langley Research Center and the results 
compared. The computed numbers were the same, showing the subprograms 
to be essentially system independent since the two computer facilities 
have quite different systems. Section 2 describes the main driver pro- 
gram and section 3 presents the test case results. 



2.0 SAMPLE DRIVER 


The sample main program — the sample driver SDRIVER — consists of input 
through subroutine INPT, printout of the input by subroutine PRNTIN, a 
call to the primary subroutine, and the printout of the mode amplitudes 
by subroutine PRNTOUT. 

Two special features are available. One, data reduction subroutine 
DISCOEF, is used with package 3 (BCDAA) . This subroutine inputs veloc- 
ity distortion data and computes the corresponding distortion Fourier 
coefficients that are stored in array AR. In the use of package 4 
(BBCAA) , a summation of the mode amplitudes over eddies is available. 
The above two special features are available through the extended 
definitions of ARMISC(22) and ARMISC(26), respectively. 


2.1 Usage of Sample Driver 

2.1.1 Control Cards and Deck Structure 


Process number card 
JOB card 
USER card 

LINECNT (10000) (if optional printout is desired) 
RUN (S) 

LGO. 

7-8-9 card 

Source deck of the subroutine package 

7-8-9 card 
Data deck 
7-8-9 card 
6-7 -8-9 card 


J 


2.1.2 Data Deck. — There is one sample driving program for all 
packages. Only one package may be used in any one execution of the 
sample driving program. The following paragraphs describe how to set 
up the data deck. 

The first card must have one of the following in the first five columns: 
AAAAA, AABAA, BCDAA, or BBCAA. Then the data deck consists of one or 
more cases which are stacked sequentially. Each case is defined by 
specifying the array ARMISC, the array AR, and, under certain conditions, 
angular distortion data. 

The first five cards of a case are used to input the array ARMISC, which 
has dimension 40. Input the 40 values, ARMISC (1) through ARMISC (40), in 
the format FORMAT (8F10.2). Not all 40 values are used and some values 
refer to a particular package only. The user should know which values 
are needed. Most elements of array ARMISC are defined in the FORTRAN 
dictionary (vol. II, sec. 2.2). The two exceptions are: 

ARMISC (22) In package 3 (BCDAA), ARMISC (22) = 4 means that 
velocity distortion data is to be input. Sub- 
routine DISCOEF is called by the sample driver, 

SDRIVER, and computes Fourier coefficients of 
this data according to ARMISC (23) and ARMISC (24). 

Finally, ARMISC (22) is set to 3 and package 3 is 
called. 

AMRISC(26) This is used in package 4 (BBCAA) for accumulation 

of the eddies,' which takes place in the sample driver, 
SDRIVER. 

0 or blank means do not sum over eddies 

do not put any nonzero value in 
ARMISC(26) when using other packages 
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1 


means start summing over the eddies 
beginning with this case 


2 means sum over eddies 

3 means sum over eddies ending with this case 

It is assumed that when the user wants to sum cases 
over eddies, he changes only the eddy data, ARMISC(28) 
through ARMISC(37) in these cases. 

The next card (sixth card) indicates which component (inlet stator, 
rotor, outlet stator) data is required in the array AR. This card must: 

1) Have a 1 in column 5 if inlet stator data is required 

2) Have a 1 in column 10 if rotor data is required 

3) Have a 1 in column 15 if outlet stator data is required 

Next, the array AR is input. Its elements are completely defined in 
the FORTRAN dictionary. Input data by components: first, input AR(I, 

J,l) for all I,J if inlet stator data is required; next, input AR(I,J,2) 
for all I,J if rotor data is required; and, finally, input AR(I,J,3) for 
all I,J if outlet stator data is required. For a given component, K: 

1) Input AR(1,J,K) for all J. 

2) Input AR(2,J,K) for all J. 

3) If spanwise data is required, input AR(3,J,K) for all J, 
AR(4,J,K) for all J, etc. 


Now, for given K and I, input AR(I,1,K), AR(I,2,K), AR(I,3,K), ..., 
with format FORMAT (9F8.2). 



Finally, in package 3 (BCDAA), if velocity distortion data is 
required (ARMISC[22] =4), it is input now. Input the first card with 
format FORMAT (1615) where: 

1) Columns 1-5 contain the number of angles, which must be <_ 40 

2) Columns 6-10 contain NSPAND, where: 

AR(1,1, 2) if spanwise velocity distortion data is 
desired; it must be specified at the radial coor- 
dinates AR(3,1,2), AR(4 , 1, 2) , .... AR(m,l,2), 
m = 2 + AR(1,1,2) 

0 if average values are to be used 

Next, input the angles using format FORMAT (8F10.4). 

If NSPAND = 0, input average distortion values. These must be 
input per angle as the angles were input using format FORMAT (8F10.4). 

If NSPAND ^ 0, input distortion values: 

1) At first radial position for each angle as the angles were 
input using format FORMAT (8F10.4) 

2) At second radial position as in item 1 above 


At last radial position as in item 1 above 


3) 



*nm o n«» nun o ocu* o oc»r> on n «~>r>r» n n n o o nnn 


2.2 FORTRAN Listing of Sample Driver 


PROS RAH SDRIVER ( INPUT ,QU T PUT* TAPE 5- INPUT » TAPE 6*0UTPUT> 
PURPOSE SAMPLE MAIN PROGRAM FOR THE PRIMARY SUBROUTINE 


DIME 

NSION 

AR (20 

,40, 

3) 

, ARM IS 

C( 40) , 

ARMUMNI 40,50 ),MAXN ( 50 ) , MU SE I 53 ) 

COMP 

LEX AL 

PHAMN 

(40, 

50 

J, ASUM 

<4G» 50 

) 

DIME 

NSION 

KI NI 3 

) 





DATA 

MO I M, 

NO IM , 

MAXO I M 

* M A X J / 

50,40, 

20,40/ 

DATA 

ICASE 

/Q/ 





• 

DIME 

NSION 

VI 2D, 

4G) 





DATA 

MAX PH 

1/ AO# 







READ PRIMARY 

SUBROUTINE NAME 

REA3I5.5) IPRG 


FORM AT I A 5 ) 


RETURN POINT 

FOR NEXT CASE 


10 CONTINUE 
LAST » 3 

CALI SUBROUTINE INPT TO READ THE NEXT DATA CASE 

CALL INPTI * NARMISC* ARNI SC »MAXOIM*NAXJ*AR,KIN*NOF J, 1C ASE# IEND) 

CHECK IF LAST CASE 

I F ( IENO.NE.O » GO TO 1000 

CALL SUBROUTINE OISCGEF TO INPUT THE DISTORTION 
ANO COMPUTE THE CORR ESPONDI NG FOURIER COEFFICIENTS, 
PLACING .THE RESULTS IN AR 

IFURMISCI 22) . EQ.4JCALL 0 I S CO EF I A RNI SC » M AXO I M, MA X J, AR,K I N, NOF J, 
IHAXPH1,Y»ICASE ) 

CALL SUBROUTINE PRNTIN TO PRINTOUT THE INPUT DATA 

CALL PRNTINI IPRG, ! CAS E, N ARM IS C » ARMl SC , MAXO IM, MAX J , A R ,NQF J, KI N J 

UPDATE ARMISC RHEN DISCOEF IS USED 

IF! ARMISC (221. EQ. A) ARMI SC (2 2) *3 

CALL THE PRIMARY SUBROUTINE TO COMPUTE MODAL AMPLITUDES 

I F ( l PRG. EO. 5HA A AAAI CALL AA AA A I ARM I SC » MAXD IN, N AX J , A R . MD I M , NO IM, 
1ARMJMN,NQFM, HUS E»MAXN» ALP HAHN, I ERROR! 



I F < I PRG.EQ.5HAABAA) CALL AA B4 A ( AR M I SC » MA XO I M» M AX J / A * » MD I M » ND I M» 
1ARMJMN#N0FM#MUS £»MAXN»ALPHAMN* I E R RQR ) 

I F 1 1 PRG.E0.5HBCDAA) CALL BC OA A ( A R M I SC » M A X 0 I M, MAX J » A R* MO I M , NO I M, 
1ARMJ MN/NOFM/MUS E/MAXN/AL PHAMN* I ERROR ) 

IFIIPRG. EQ.5H98CAA) CALL BB C A A I ARM I SC » MA X D I M# MAX J » A R* ,10 1 M # NO I M» 

1 ARMJMN.NOF M. MJSE» MAXN/AL PHAMN* I ERROR) 

50 CONF INUE 

l F I L A ST .EO. 0) UR I TE ( 6/60) 

I F ( L A ST .EO. 1) UR I TE ( 6*70) 

60 F0R1ATUH1) 

70 FORiAT ( IH1/11X# ♦ACCUMULATION UF EDDYS*> 

CALL SUBROUTINE PRNT OUT TO PRINTOUT THE MODAL AMPLITUDES 
I F ( I ERROR. NE. A ) CALL PR NT OUT I MD I M/ ND I M, NOF M, MUSE / MA XN, AL PH AMN) 


I FIARMISC ( 26) .EO. 0.) GO TO 10 
I FIARMISC ( 26) - 2.) 500*550/600 

50C 00 5 1C N*1»NDIM 

00 510 M»1/M0IM 

510 ASU1IN/M) - ALPHAMNI N/M) 

GO TO 10 • 

550 00 56C NM.NDIM 

00 56C M-l/MOIM 

560 A SUM ( N» M ) * AS U M I N* M ) ALPHAMNI N/M) 

GO TO 10 

603 IFCLAST .EO. 1) 50 TO 10 

00 slG N-l/NDlM 
DO 61C M » 1 * M 0 1 M 

610 ALPHAMN(N.M) « ASUMlN/M) ♦ AL PHAMNI N/ M ) 
LAST « 1 
GO TO 50 

1000 CONT I NUE 


RETURN 

END 



2.3 Sample Driver Subroutine Descriptions 


2.3. 


Purpose : 


Method: 


Usage : 


1 Subroutine INPT 


This subroutine provides a standardized input on TAPE 5 of 
arrays AR and ARMISC. This subroutine will be updated as 
primary subroutines are developed. 

The procedure is as follows: 

1) Determine the number of elements in ARMISC. 

2) Input ARMISC. 

3) Check for an END OF FILE and return upon detection. 

4) Update the case counter. 

5) Input which components, K, are to be input. 

6) For each component to be input, perform steps 7 to 9 
below. 

7) Compute the number of J’s to be used. 

8) Input AR for I equal to 1 and 2. 

9) Wien there is spanwise data, input AR for the remaining I' 
CALLING SEQUENCE 


DIMENSION ARMISC (NARMISC) , AR(MAXDIM,MAXJ, 3) , KIN (3) 



CALL INPT ( PROG , NARMI SC , ARMI SC , MAXDIM , MAXJ , 
* AR,KIN,NOFJ , ICASE , IEND) 

INPUT 


OUTPUT 

NARMISC The number of elements in the array ARMISC, 
set to 40 

ARMISC 

to See FORTRAN dictionary 

AR 

KIN KIN (K) , K = 1, 2, 3 is 1 or 0, depending on 

whether component K is input or not, 
respectively 

ICASE The case counter, which should be initialized to 

zero before the first call to this subroutine 

IEND =1: an END OF FILE is encountered; presumably 

the previous case is the last case 

=0: no END OF FILE 

Timing: The timing is proportional to the number of elements in 

ARMISC and AR. 

Tapes: TAPE 5 is used for input. 
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KIN (I), 1=1,3 


DO 100 K=l,3 


KIN (K) :1 


































« * o r»oo ttnrtrtrt non otto ttoo o t>oo 


SUBROUTINE I NP T ( NARM IS C. ARH l SC > MAXD I M#MAX J , AR. < I N# NQF J , I C AS E > 

HEN)) 

PURPOSE THIS PROGRAM PROVIOES FOR STANDARDIZED INPUT 

01 ME NS I ON ARMISC(1)»AR(MAXDIM#MAXJ#31.KIN(3) 

NARMISC • 40 

INPUT ARMISC 

REA) I 5.20M ARM I SC II) » I* 1» NARMISC) 

20 FORMATC8F 10. 21 

CHECK FOR END OF FILE AND SET IENO ACCORDINGLY 

I F IE OF# 5 I 30# 43 
30 I EN) • 1 

GO TO 1000 
40 I EN) ■ C 

UPDATE THE CASE COUNTER 
ICASE - ICASE ♦ 1 

INPUT KINIK). K* 1. 2. 3 WHERE KINCK) IS ) OR 1 DEPENDING 
UPON WHETHER INPUT FOR COMPONENT K IS TO 3E INPUT 
BELOW OR NOT 

REA) ( 5.50) ( KI N ( I ) . I * 1. 3 ) 

50 FORM A T( 1 6 I 5) 

LOOP ON THE K INOEX 

DO IOC- K- 1*3 

I F ( KINCK) .NE. 1) GO TO 100 

COMPUTE THE NUMBER OF ELEMENTS J TO READ 
MIS:22*ARMISC( 22) 

NGC3EF - ARMISC C 18*0 
NOF=A-0 

IF(ARMISCI25).EQ.3)NOFFA=*2 
NOFA 1*0 

IFIMISC22.E0.2) NOF A1 * 1 
N0C3EF * 0 

IFIMISC22.E0.3) NOCOEF *ARMI SC <23» 

NOFJ *9»NGC0EF t-NOFFAf NOF A 1>NDC0EF 


INPUT AR FOR I * 1 AND 2 ALWAYS 


R E A) ( 5. oO ) C AR t l»J.K)#J*l.NOF J) 



60 F ORN AT C 9 F 8 . 0 • 

REA3(5,70I ( A R ( 2 • J » K I » J * 1 « N OF J ) 

70 F OR* AT ( 9F8 . 2 ) 

w 

: INPUT AR FOR I « 2 AND ABOVE ONLY WHEN AR(l»l,<> 

C IS NOT ZERO 

NRHO * AR( 1* l, K » 

I F ( NRHO.EQ.O )G0 TO 190 

00 90 IRHQ-l'NRHO 

1 « I RHO ♦ 2 

90 REAOI5»70> I AR « 1 # J#K> ,J« l,NOF J) 

100 CONT INUE 

m 

1000 RETJRN 
END 



2.3.2 Subroutine DISCOEF 

Purpose: This subroutine inputs distortion data on logical unit TAPE 5 

per component (K = 1, 2, or 3) as average values or per 
spanwise positions (see AR) and per angle (up to 40), prints 
out the values input, calculates the Fourier series according 
to ARMISC data, and places the resulting data in AR. 

Method: The procedure is as follows: 

1) Print a title and case number. 

2) Perform the following steps for each component input. 

3) Input the number of angles, up to 40 and at least 2, and 
a parameter that the distortion will be given at the 
spanwise positions in AR or as average values. 

4) Input the angles in degrees. 

5) Input the distortion per angle when only average values 
are input. 

6) Otherwise, per spanwise position, input the distortion 
per angle. 

7) Print out the component index. 

8) For printout, divide the number of angles into groups of 
5 and for each group perform steps 9 and 10. 

9) Print the angles in the present group. 

10) Print the distortion according to the input in steps 
5 and 6. 
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Usage: 


11) Compute .the number of Fourier series indexes and the 
index multiplication factor. 

12) For the average values or for each spanwise position, 
repeat steps 13 and 16. 

13) Set the I index for AR. 

14) For each Fourier series index, repeat steps 15 and 16. 

15) Compute the Fourier series sine and cosine coefficients 
by integration over angle using the trapezoidal rule. 

16) Store the coefficients calculated in AR. 

17) Update the number of J's. 

CALLING SEQUENCE 

DIMENSION ARMISC(NARMISC),AR(MAXDIM,MAXJ,3) ,KIN(3) , 

* V ( MAXDIM ,MAXPHI ) 


CALL DISCOEF (ARMISC ,MAXDIM,MAXJ ,AR,KIN ,NOFJ ,MAXPHI ,V, ICASE) 
INPUT 

ARMISC 

MAXDIM See FORTRAN dictionary 
MAXJ 

KIN Array of components input; see subroutine INPT 
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MAXPHI Second dimension of array V set in calling 
program corresponding to the maximum number 
of angles 

ICASE Case number 

INPUT /OUTPUT 

AR See FORTRAN dictionary for definition; this 

will contain the computed Fourier coefficients 

NOFJ The number of J positions used 

OUTPUT 

V The array of input distortion values, dimen- 

sioned V (MAXDIM, MAXPHI ) , where the rows 
correspond to spanwise data and the columns 
correspond to angle data 

Restrictions: There must be at least two angles, but at most MAXPHI 

which is set to 40 in SDRIVER. The spanwise positions 
(unless average values) must be those in array AR. 

Printout: The distortion values input will be printed out. 

Timing: The timing is proportional to MAXDIM x MAXPHI. 

Tapes: TAPE 5 is used for input and TAPE 6 is used for output. 
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SUBROUT INF DJSCOEFURMl SC *MAXDIM*MAXJ»AR»KIN* NQF J»MAXPHl*V» I CASE > 


PURPOSE THIS IS A DATA REOUCTIQN SUBROUTINE WHICH INPUTS 

DISTORTION. ARNISC (22)*4* VALUES PER SPAN POSITION* THOSE 
IN AR» FOR A SET OF ANGLES* PR1N7S OUT THOSE VALUES* 
COMPUTES THE FOURIER COEFFICIENTS ACCORDING TO ARMI SC ( 2 3 ) 
AND AR/USC12 *> AND PLACES THOSE VALUES IN AR 

DIMENSION ARHISC(1)»AR(NAXDIM*N4*J*3)»V(NAXDIM»NAXPHI)»<INI3I 
OATA DT3R/0.01745329251994/.T kOP ! / 6 . 233185307 1 7 959/ 

INPUT THE DISTORTION VU*J> WHERE l * 1* C ORRE SPON OS TO THE 
ANGLE* 1*2 TO THE AVERAGE VALUE* 1*3*4*... TO SPANWISE 
POSITIONS AR(I«1*KJ* J«i *2* .. . CORRESPOND TO ANGLES 

PRINT TITLE 

WRITE(b*5)ICASE 

5 FORMAT! IHI// iiX **OISTORT I ON INPUT FOR CASE ♦» I 3 > 

LOOP ON COMPONENT 

00 400 X*l,3 

1 FI KINIKI.EO.O I GO TO 400 

INPUT NPH I * THE NUM9ER OF ANGLES* AT MOST 40* ANO 
NSPANO* 0 IF ONLY AVERAGE VALUES OF DISTORTION ARE GIVEN 
OR EQUAL TO AR!!*!*)!} FOR SPANWISE DATA 

READ (5*10) NPH I *NS PAN D 
10 FORMAT (1615) 

INPUT THE ANGLE IN OEGREES 

READ ( 5*2 0 ) ( V< 1 ,JJ*J* l.NPHII 
20 FORMA T ( 9F 1 0. 4) 

I F ( NSPANO ) 40*30.40 

INPUT THE AVERAGE DISTORTION VALUES 

30 READ ( 5*20) (V( 2* J )* J- l.NPHI > 

GO TO 60 


40 

50 


DO 50 
I - I 
READ ( 


INPUT THE DISTORTION PER SPANWISE POSITION 

ISPAN0*l. NSPANO 
SPAND ♦ 2 

5*20) (VI I *J >*J* l.NPHI ) 

PRINTOUT THE DISTORTION INPUT 
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PRINT THE COMPONENT 


63 WR IT £ ( 6, 70 ) K 

70 FORI ATI 1H0* 10X, *K « *,111 

DIVIDE THE ANGLES INTO GROUPS OF 5 FOR COLUMN OUTPUT 

NGR? • ( NPHl-1) / 5 ♦ 1 

00 140 IGRP«1»NGRP 

COMPUTE THE FIRST AN 0 LAST J INDEX WITH RESPECT TO 
V FOR THE PRESENT GROUP OF 5 

J1 * (IGRP-11*5 ♦ 1 
J2 * HINDI J 1 ♦ 4* NPHI1 

PRINT THE ANGLES 

WR I T E ( 6* 80 ) (V< 1*J». J»Jl» J2> 

80 FORNAT(lH0*10X* ♦ ANGLE * *»5F10.4) 

1 F ( NSPAND ) 110* 90* 1 10 

PRINT AVERAGE DISTORTION VALUES 

90 WRIT E (6* 1001 M V 12, J), J«J 1 * J 2 » 

100 FORMAT! 1H0* 10X, ^AVERAGE * ♦.5F10.4) 

GO TO 140 

PRINT DISTORTION VALUES PER SPANWISE POSITION 

HO WRITEI6* 1151 

115 F0RMAT(13X,4SPAN*) 

DO 1 20 I SPANO* 1. NSPAND 
I • ISPANO ♦ 2 

120 WRITE! 6» 130) AR ( I , 1 * K ). ! V ( I » J 1 , J» J l * J2 I 
130 FORM ATI1 IX » F 6. 4»5F10. 41 

140 CONTINUE 


CALCULATE THE DISTORTION FOURIER SERIES 

COMPUTE THE LAST J INDEX USED WITH RESPECT 70 AR 
J LAS T « NOFJ 

COMPUTE THE FACTORS DETERMINING THE FOJRIER INDICES 

MAXCOEF * AR MI S C ( 2 3) / 2 
MULTFCT « ARMISCI24) 
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: LOOP ON THE AVERAGE VALUE OR SPANWISE POSITION INDEX 

C SETTING THE I APPROPRIATE TO 80TH V AND AR 

NLQOP « M A XO ( 1# NSPANO ) 

00 20C I LOOP a l » NL00P 

1 « I LOOP ♦ 2 
I F ( NSPANO. EQ.O) I«2 

LOOP ON NUMBER OF FOURIER SERIES COEFFICIENTS 
DO 200 L-l/MAXCQEF 

COMPUTE THE FOURIER SERIES INDEX 
N « L*MULTFCT 

COMPUTE THE FOURIER COSINE AND SINE COEFFICIENT FOR 
THE PRESENT SPAN POSITION AND FOURIER SERIES INDEX 
BY INTEGRATING OVER THE ANGLE USING THE TRAPEZOIDAL RULE 

INITIALIZE THE COEFFICIENT SUM 

ABN1 « 0. 

ABN2 « 0. 

LOOP ON THE SUB-INTERVALS 

N PHI Ml » N PH I - 1 
DO 190 J«1#NPHIM1 

SET THE ANGLES ANO COSINE ANO SINE ARGUMENTS 
AT THE INTERVAL END POINTS 


JP1 - J*1 

PHIJP1 » VllfJPl) *DT OR 
P HI J * VI 1»J) *OTOR 
ARGNJPl* N*PHIJP1 
ARGNJ * N *PH I J 

COMPUTE THE TRAPEZOIDAL RULE CONTRIBUTION 


C 


ABN1 » ABN !♦ (PHI J PI-PHI JI*IV< I» JP 1 lOCOS I ARGNJP1M-V ( I# J )*C3S< ARGNJ) ) 
190 ABN2*A8N2M PHI JPl-PHl J»*(V( I, JPl)*SIN( ARGNJPl )*V I I# J I*SIN I ARGNJ ) I 
A BNi » ABNl*MULTFCT 

ABN2 * ABN2*MULTFCT 

STORE THE COEFFICIENT IN AR 


JN’EXT * JLAST «• 2*IL - II ♦ 1 
A R C I # JNEXT.K) * A8N1 
ARII , JN£XT*1»K) « A8N2 
AR(i» JNEXT.K) * NSPANO 
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ARl 1 t JNE XT >1#KI “NSPAN 0 
200 CONT 1 NUE 

403 CONTINUE 

UPDATE NOFJ 

NOFJ * N OF J ♦ ARH! SC ( 23 > 


C 


RETURN 

ENO 



2.3.3 Subroutine PRNTIN 


Purpose : 


Method: 


Usage: 


This subroutine provides for a standardized output on TAPE 6 
of the arrays ARMISC and AR. 

The procedure is as follows: 

1) Print the case number. 

2) Print the array ARMISC. 

3) For each component K input, repeat the following steps. 

4) Divide the number of I's into groups of 6 per line. 

5) For each group of I's, print AR for all J's in that group 
and all I's. 

CALLING SEQUENCE 

DIMENSION ARMISC (NARMISC) ,AR(MAXDIM,MAXJ,3) ,KIN(3) 


CALL PRNTIN (I PRG.ICASE, NARMISC, ARMISC, 
* MAXDIM,MAXJ,AR,NOFJ,KIN) 


INPUT 


IPRG The five-letter name (5Hxxxxx) of the primary 

subroutine being used 

ICASE The number of the case 



Timing: 


Tapes: 


NARMISC Number of elements in ARMISC 


ARMISC 

to See FORTRAN dictionary 

AR 

NOFJ The number of J's in AR 


KIN KIN (K) , K = 1, ...» 3 is 1 or 0 depending on 

whether component K data is to be printed 
(i.e., input) 

The timing is proportional to the number of elements in the 
arrays ARMISC and AR. 

TAPE 6 is used for output. 


























non 


SU8< OUTI NE PRNT INI JPRG# l CASE, NARM I SC# ARM I SC# MAXO I M# MAX J# AR#NQFJ» 

IK I N> 

PURPOSE S T AND ARDI ZEO INPUT PRINTOUT SUBROUTINE 

DIMENSION ARM! SC INAiMISC ) »ARt MAXD IM#MAXJ# 3 I » K I N ( 3) 

DIMENSION TII2J 

DATA Tl< 1) #Tll 2) /<?H INOE X . <JH VALUE / 

WRITE (6# 10) I PRO# ICASE 

10 FORMAT! 1H 1 / / 1H0 # 10X, * SUB R OUTI NE * # A 5/ 1 HO # 10X # * I N PUT FOR CASE *» I 3 ) 

NCLM-MINO! 4#NARMISC) 

NR0W«INARMISC-l»/4 ♦ ! 

WRITE <6# 20) I Tl < l).Tl I 2» # I CLM* WNCLM) 

20 FORMAT 1 1H0# 10X# *ARRA Y A R M I S C * / 10X * 8 A<? ) 

00 35 IR* 1#NRQW 

WRITE (6# 30) ( I # ARMISC (I ) » I* IR #NARM I SC # NROW > 

30 F0RMATI10X#4!4X#13#1X#F10.4> ) 

35 CONTINUE 

WRITE (6. 40) 

40 FORMAT!/ IHO# 10X.4ARRAY AR*I 
DO 200 K * 1 » 3 

IF!< INIKJ.EO.O) GO TO 200 
NOFl « ARl l#l#K) 2 
NGR>« (NOF J- l ) / 6> 1 
45 WRITE! b»50)K 
50 FORMAT! IHO# 1 IX, *K - *»UJ 
DO 1 5C I GRP* 1 # N GRP 
J 1 *( I GRP - 1 ) *6 41 
J2-HIN0I J145#N0FJ) 

WR I T E ! b# 60 ) !J#J*J1#J2) 

60 FORMAT! IHO# 11X. *J *♦ # 6( 8 X # I 2# IX I > 

WRITE !b»70 ) 

70 FORMATUH #12X#*I*J 
DQ IOC l ■ 1 # NOF I 

WR I T E ( 6# 30 ) ! I » IAR(I# J» K ) #J*J1#J2) ) 

80 FQRMAT(12X#I2»2X#6(1X#F10.5) ) 

100 CONTINUE 
150 CONT l NUE 
200 CONTINUE 

RETJRN 

ENO 
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2.3.4 Subroutine PRNTOUT 


Purpose : 


Method: 


Usage : 


This subroutine prints out the modal amplitudes, array 

ALPHAMN, as computed by a primary subroutine. 

The procedure is as follows: 

1) Print the heading. 

2) Divide the number of m's into groups of 3. 

3) For each group in step 2, repeat the following steps. 

4) Compute the index corresponding to the largest and 
smallest m in the present group. 

5) Compute the largest n corresponding to the m's in 
this group. 

6) For each n, up to the largest, repeat the following 
steps. 

7) Construct a variable format such that for each m in the 
present group, the format will print blank or the modal 
amplitude as a modulus and a phase between -180° and 
180°, depending on whether there is or is not a modal 
amplitude corresponding to the current m and n, 
respectively. 

8) Print the information determined in step 7. 

CALLING SEQUENCE 


DIMENSION MUSE(MDIM) ,MAXN(MDIM) 



COMPLEX ALPHAMN(NDIM.MDIM) 


Timing : 


CALL PRNTOUT (MD IM , ND IM , NOFM , MUSE , MAXN , ALPHAMN ) 


The timing is proportional to NOFM times the largest value 
in MAXN. 


Tapes: 


TAPE 6 is used for printout 






















THERE IS A MODAL 
AMPLITUDE 

VAR (L)-- MODULUS 
VAR (L*l)-- PHASE 
FORM (L»l)- 10 H, E 12.2 
FORM (L + 2)-10H, F 10.Z 2X 
L' L+2 


A 


> 


60 



THERE IS NO MODAL 
AMPLITUDE 

VAR (L) : VAR (L*1) = 1H ✓ 

FORM (L*l)’FORM <L*2) = 10H,A12 
L- L* 2 



RETURN 















non unn non non ono non n n n nnn n cm n 


SUBROUTINE PRNTOUT(MD IM. N 01 M. NOFM, MUSE » M AXN» AL PH AHN I 

PURPOSE ST ANO A R0 I ZEO MODAL AMPLITUDE PRINTOUT 

DIMENSION MUSE<M0IM).MAXN(M0IM).VAR{6)»FQRN(3> 

COMPLEX ALPHAMN < N01M. MDlM ) » AL PHA 

DATA ME. BLNK.RA0T0DG /44 M * , 1H » 57. 2957 7<551 30 82 32/ 

REAL MODULUS 

WRITE (6. 10 ) 

10 FORMATIlHO. 1 1X» ♦MODAL AMPLITUDES « ( MODULUS* PH AS E >* / 

1 1 HO. 13X. *PHASE . LT. 180 DEG ANO PH A SE . GT. - l 80 DEG*) 

COMPUTE THE NUMBER OF M IN SETS OF 3 

HLP «<N0FM-l)/3 ♦ 1 

LOOP ON SETS OF M» COMPUTING THE FIRST ANO LAST M 

DO 100 ILP«i.MLP 
I Ml « 3*<ILP-1)*1 
I ML « MI NO I I Ml ♦ 2»NGF M ) 

PRINT THE M ANO COLUMN HEADING N 

WRIT El 6# 20)- (ME. MUSE! IMJ . IN -I Ml. I ML ) 

20 FORMATUHC.13X, 3<9X»A4# I4.7XI ) 

WRITE (6. 30) 

30 F0RMAT(13X,*N*> 

COMPUTE THE LARGEST N OVER ALL MIN THIS SET 


NBIG - 1 

DO 40 1 1* I Ml . I ML 
40 NBIG * MAXOC MAXNt IM)» NBIG) 

LOOPING ON N. CONSTRUCT THE FORMAT 

00 90 N-1.N8IG 

OPEN THE FORMAT AND SET N PRINT FORMAT 

L « l 

FORM I 1) » 10H( 1 1 X . I 3 

LOOP ON M. FILLING THE VARIABLE ANO FORMAT 
DO 80 I M» I M 1» l ML 

OECISION ON TYPE OF ELEMENT 
I F ( N-MAXNUMl J50.50.60 


non o non 


MOO AL AMPLITUDE HERE ONLY 


50 ALPHA « ALPHAMN IN# IH I 
MODULUS * CABS! ALPHA) 
lE(MOOULUS) 53# 52# 53 

52 PHASE * 0. 

GO TO 55 

53 PHASE « ATAN2I A IMA GIAL PHA1 # RE AL I ALPHA ) )*RAOTOOS 
55 VARI L ) * MOOULUS 

L «IM 

FORI I L ) * 10H#£12.2 
VARI L J - PHASE 
L • L*l 

FORM ( L ) » 10H#F10.2»2X 
GO TO 83 

60 VARI L ) * BLNK 
L * L*l 

FORM I L ) » 10H# A 12 
VARIL) « BLNK 
L * L* l 

FORMIL) • 10H# A 12 
80 CONTINUE 


COMPUTE NUMBER OF WOROS IN FORMAT ANO SET LAST ELEMENT 


l « L ♦ 1 
FORM l L ) * 10H) 

C 

L » L - 2 

WRIT E 16# FORM) N # I V AR l I) > I *1 # L > 

90 CONT INUE 
C 

100 CONT INUE 

I* 

W ' 

RETURN 

ENO 
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3.0 TEST CASE RESULTS 


The purpose of these test cases is to demonstrate the different options 
included in the four subroutine packages. 

The test cases executed with primary subroutine AAAAA include the 
evaluation of several options that are common to all four packages. 

The test cases with the other three packages demonstrate options that 
are unique for each one of them. 

The test cases for the packages AAAAA and BBCAA include base cases. 

The inputs used for the base cases serve as reference inputs. The in- 
puts for the other test cases are equal to the reference inputs except 
for one or a few input parameters. 


3.1 Primary Subroutine AAAAA 

Case 

1 Base case: 

Viscous wakes interaction between inlet stator and rotor 

2 Viscous wakes interaction between rotor and outlet stator: 

ARMISC (5) = IS0R0S = 2. 

3 Base case with: 

ARMISC (14) = harmonic index = 2. 

4 Base case with: 

ARMISC (4) = 1. indicates downstream propagation 

5 Base case with: 

ARMISC (38) = 1. indicates non compact source theory 



Case 


% 


6 Base case with: 

ARMISC(13) - .1 indicates wake skewness at rotor 

7 Base case with: 

AR(1,J,K) = 0. indicates average input values in the 
AR array only. 
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3.1.1 Card Image of Main Driver Imput 
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3.1.2 Primary Subroutine Input /Out put 


SUBROUTINE A AAA A 
INPUT FOR CASE 1 


ARRAY ARMISC 


index 

• VALUE 

INDEX 

VALUE 

INDEX 

VALUE 

I NDEX 

value 

1 

.2000 

1 1 

-0. 0000 

21 

-0. CO DO 

31 

-C. CG JD 

2 

0.0000 

l 2 

-0.0000 

22 

-0. CD DO 

32 

-O.ODDD 

3 

. 3500 

13 

-0.0000 

23 

-0. CD DO 

33 

-0. OOOD 

A 

-1.0000 

1 A 

1.0000 

2 A 

- 0. 00 DO 

3 A 

-0. ODDD 

5 

1.0000 

15 

-l.CCOO 

25 

3. CODO 

35 

-D. GODO 

6 

0.0000 

16 

-G. 0000- 

26 

-O.ODDD 

36 

-C. DODO 

7 

.3750 

17 

0.0000 

27 

-O.CDDO 

37 

-C. 00 DD 

3 

10.0000 

18 

-0.0000 

28 

-0. CDDO 

38 

-0. GOOD 

9 

0. 0000 

19 

-0.0000 

29 

-0. ODDD 

39 

-C. DODO 

10 

15.0000 

20 

-O.COOO 

30 

-0. CDDO 


-C. CCDO 


ARRAY AR 







K * 1 

J * 
I 
1 

1 

2 

3 

A 

5 

b 

2. OOOOO 

2.00000 

-C. 30000 

0.00000 

— 0 . ooooo 

O.OOODD 

2 

.67500 

.15000 

-0.00000 

.01000 

- 0 . ococc 

6.23CD0 

3 

.35000* 

. 20CD0 

-0.00000 

-0.00000 

-0 . ooooo 

-0.00000 

A 

l. 00000 

. 1 OCOQ 

-0.00000 

-0.00000 

-D .00000 

-D .0 3000 

J * 
I 
1 

7 

8 

9 

10 

11 


0.00000 

2.00000 

0.00000 

2.00000 

2.00000 


2 

.50000 

.53000 

. 50000 

.0 5000 

.05000 


3 

-0.00000 

.50000 

-0.00300 

0 .00000 

D.DOCCC 


A 

K * 2 

-O.OOOGO 

.56000 

-0.00000 

.10000 

. 1CCCC 


J * 
I 
1 

1 

2 

3 

A 

5 

6 

2.COCOO 

2.00C00 

-0.00000 

o.ocooc 

-c .oooeo 

0. COODD 

2 

.67500 

.15030 

-c.oooco 

.0 1000 

-c. ococc 

6.23000 

3 

. 35000 

.20000 

-0.00000 

-O.OOOGO 

-: . ococc 

-O.CCODO 

A 

1.00000 

.10000 

-C. 00000 

-0.00000 

- 0 .ococc 

-0 .OOCDO 

J * 

I 

1 

7 

8 ' 

9 

10 

11 


2.00000 

2.00000 

0.00000 

2.0C000 

2.00000 


2 

.39500 

. 5 = 0:0 

. 50000 

.0=500 

. ObCQG 


3 

. 59000 

.50030 

-:. 30300 

.; coco 

. ic.::c 


A 

. 80C00 

.67500 

-c.oooco 

.D 3000 

. 020CG 




MODAL AMPLITUDES 


( MODULUS»PHAS£ ) 


PHASE. LT. 180 DEG AND P HAS E . G T . - ISO DEG 


1 4.59E-03 -14.35 

2 8.3CE-03 -44.27 

3 8.70E-03 -45.33 


M ■ 5 

2.33E-03 -74.22 
I.28E-03 -102.33 
I.30E-03 a 5 . 29 
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SUBROUTINE AA AAA 


INPUT FOR CASE 2 


ARR AY 

ARM ISC 



INDEX 

VALUE 

IMOEX 

VALUE 

1 

0.0000 

11 

-0. C030 

Z 

.2000 

12 

-0.0000 

3 

.3500 

13 

-0. 0000 

4 

-I. 0000 

14 

1.0000 

5 

2.0000 

15 

-0.0000 

6 

0.0000 

16 

0.0000 

7 

.8750 

17 

-1.0000 

8 

-0.0000 

13 

-o.cooo 

9 

10.0000 

19 

-0. 0000 

10 

15.0000 

20 

-0. 0000 


INDEX 

value 

INOEX 

value 

21 

-0.00 00 

31 

-0. 00 jO 

22 

-O.COOO 

32 

-c. oooo 

23 

-o.cooo 

33 

-0. oooo 

24 

-0. CO 00 

34 

-0. 00 jO 

25 

3. CO 00 

35 

-0. 0000 

26 

-o.cooo 

36 

-0. 0000 

27 

-o.cooo 

37 

-0. 0000 

28 

-o.cooo 

38 

- 0 . cooo 

29 

-o.cooo 

39 

-0. oooo 

30 

- 0 . cooo 

4C 

-0. 0000 


ARRAY Art 
K « 2 


J « 
I 
1 

1 

2 

3 

4 

5 

6 

2.00000 

2 .00000 

-0.00000 

0.00000 

-C. 00000 

0 .00030 

2 

.67500 

.15000 

-0.00000 

.0 1000 

-0. 00000 

6.23000 

3 

.35000 

.2OC00 

-0.00000 

-0.00000 

-c.ooooc 

-0 .00000 

4 

1.00000 

.10000 

-0.00000 

-0.00000 

-o.ocooo 

-0.00000 

J • 
I 
l 

7 

8 

9 

10 

11 


2.00000 

2.00000 

0.00000 

2.00000 

2.00000 


2 

.69500 

.59000 

.50000 

.0 o5 00 

# . b O v G 


3 

.59000 

.50000 

-0.00000 

.1 0000 

. 10000 


4 

K * 3 

.80000 

.67500 

-0.00000 

.03000 

. 02000 


J • 
l 
1 

1 

2 

3 . 

4 

5 

o 

2.00000 

2.00000 

-0.00000 

0.00000 

-o.ooooc 

0.00000 

2 

.67500 

.15000 

-0.00000 

.0 1000 

-c. ccocc 

5.23COO 

3 

.35000 

.20000 

-0.00000 

-0.00000 

-0. OOOCG 

-0.00000 

4 

1.00000 

. 10030 

-0.00000 

-0.00000 

-0.00000 

-0.00000 

J * 
l 
l 

7 

6 

9 

10 

11 


2.00C0C 

0 . occco 

0.00000 

2.0 3000 

2. OCCCO 


c. 

•c3CC0 

. 3 :cc: 

• 3 j vV 0 j 

.4 j J v 0 

. 1 J i V 


3 

.59000 

-o. occ:o 

— • JOvCO 

. i 0.00 

• i C Z C s. 


4 

,b75C0 

-O.OOCOO 

-0*00000 

.1 5000 

. 1C0CG 




MODAL AMPLITUDES * ( MO DULUS » PH ASE ) 

PHASE.LT. 130 DEG ANO PHAS E . G T . - 13 0 DEG 


1 4.93E-04 -33. 3*9 

2 1.04E-03 -.28 

3 3.35E-03 -13.56 


M * 5 

3.22E-03 59.53 

7.50E-03 16.11 

1.L1E-02 -2 3.72 
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SU8R0UTINE AAAAA 


INPUT FOR CASE 3 


ARRAY ARMISC 


INDEX 

VALUE 

INDEX 

VALUE 

INDEX 

VAL JE 

INDEX 

VALUE 

I 

.2000 

11 

- 0.0000 

21 

-O.COOO 

31 

- 0 . GOOD 

2 

0 . GOOD 

12 

- 0.0000 

22 

-O.COOO 

32 

- 0. 0030 

3 

.3500 

13 

- 0.0000 

23 

- 0 . 0000 

33 

- 0 . 0000 

4 

- 1.0000 

14 

2.0000 

24 

-O.COOO 

34 

- 0 . 0000 

5 

l.COOO 

15 

- 1.0000 

25 

3.0000 

35 

- 0. 0000 

6 

O.COOO 

16 

- 0.0000 

26 

- 0.0000 

36 

- 0. 0000 

7 

.8750 

17 

0.0000 

27 

- 0 . 0000 

37 

- 0 . 0000 

3 

10.0000 

13 

- 0.0000 

28 

- 0.0000 

36 

- 0. 0000 

9 

O.COOO 

19 

- 0.0000 

29 

- 0.0000 

39 

- C .0000 

10 

15.0000 

20 

- 0.0000 

30 

- 0.00 00 

40 

- 0. 0030 


array ar 







K « l 

J * 
I 
1 

1 

2 

3 

4 

5 

6 

2.00000 

2.00000 

-0.00000 

o.ocooo 

-0.00000 

0.00030 

2 

.67500. 

.15000 

-0.00000 

.0 icoo 

-0. OCQCO 

0.28 000 

3 

.35000 

.20000 

-0.00000 

-0.00000 

-O.OOOCC 

-0.00030 

4 

1.00000 

.10000 

-0.00000 

-0.00000 

-o.ocooo 

-0.00030 

4 • 
I 
1 

7 

6 

9 

10 

11 


0.00000 

2.00000 

0.00000 

2.00000 

2.00000 


2 

. 50C00 

. 5 3C00 

.50000 

.05000 

.05000 


3 

-o.oocoo 

.50000 

-0.00000 

o.ocooo 

o.ocooo 


4 

K » 2 

- 0.00000 

.56000 

-0.00000 

.10000 

. icooo 


J ■ 
I 
1 

1 

2 

3 

4 

5 

6 

2.00000 

2.00000 

-0.00000 

0.00000 

-0. oocoo 

0.00000 

2 

.67500 

.15000 

-0.00000 

.01000 

-0.00000 

6.2 3000 

3 

.35000 

.20000 

-0.00000 

-o.ocooo 

-o.ocooc 

— 0.03 000 

4 

1.00000 

.10000 

-0.00000 

-0.00000 

-o.ococo 

-0.030)0 

J ■ 
I 
1 

7 

8 ’ 

9 

10 

11 


2.00000 

2.00C03 

0.00000 

2.0C000 

2.0C0C0 


2 

.69S0C 

.50030 

.50000 

.06500 

. 060 CO 


3 

. 59CCC 

•5CC33 

-0.00000 

.1 0000 

. LCC3C 


4 

.80000 

.87500 

-0.00000 

.03000 

. 020oC 




O' vn ^ »>< z -J cr vn 4- 


MOOAL AMPLITUDES 


( MODULUS » PH ASE » 


PHASE.LT. 180 0 EG ANO P HAS E . G T. - 1 30 0 EG 


H * 

-20 

M * 

-10 

M * 

0 

1 .97E-03 

-103. 96 

2.08E-03 

-2 1 . o5 

3 . 62E-03 

51.12 

3.88E-C3 

-170.45 

3.16E-03 

-87. 34 

2.24E-03 

1. 81 



3.71E-03 

-12 1.19 

7.6 IE-04 

23. 53 



3.78E-03 

-122. 34 ' 

6.79E-34 

- 4 o. 33 



3.32E-03 

-102.22 

4 .2 GE-04 

1 3o. 6 5 



7; 37E.-03 

-63.83 

3.9 5E-04 

125. 31 





4.13E-04 

- 44. 63 

H * 

10 

M » 

20 



1. 92E-03 

-176. 85 

1.23E-03 

-6 8.23 



1. 75E-03 

143. 94 

2.98E-04 

5 3.23 




8.02E-04 125.37 
4 . o2E-04 -33.33 
1.3CE-03 -37.76 
6 . 90E-G3 -24.53 



subroutine aaaaa 


INPUT FOR CASE A 


ARRAY ARMISC 


INDEX 

VALUE 

I NOE X 

VALUE 

INDEX 

VALUE 

INDEX 

V ALUE 

I 

. 2000 

1 1 

-O.COOO 

21 

-0.0000 

31 

-0. 0000 

2 

O.COOO 

12 

-0.0000 

22 

-0. COOO 

32 

-0. COOO 

3 

. 3500 

13 

-0.0000 

23 

-0. COOO 

33 

-0. 0000 

4 

l.COOO 

14 

l. GOOO 

24 

-0. COOO 

34 

-0. GCOO 

5 

l.OOCO 

15 

-1. 0000' 

25 

3. COOO 

35 

— 0 » o 0 00 

6 

0.0000 

16 

-O.COOO 

26 

-0. COOO 

36 

-0. GOOD 

7 

.8750 

17 

O.COOO 

27 

-0.0000 

37 

-o. ooo: 

a 

10.0000 

l 3 

-0.0000 

28 

-O.COOO 

38 

-0. 0000 

9 

0.0000 

19 

-0. 0000 

29 

-0. COOO 

39 

-C. 0000 

10 

15.0000 

20 

-0.0000 

30 

-0.0000 

4C 

-0. 0000 


ARRAY 

K = 1 

J = 

I 

1 

AR 

1 

2 

3 

4 

5 

fa 

2.00000, 

2.0CC00 

-C. 00000 

0.0 COOO 

-0.00000 

0.0 0000 

2 

.67500 

. 1 5000 

-0.00000 

.01000 

-o. ococc 

0.2 3COO 

3 

.35000 

.20000 

-0.00000 

-O.OCOOO 

- 0 . ococc 

- 0.0 00 JO 

4 

l.OOCOO 

.10000 

-0.00000 

-0.00000 

-c.ococo 

-O.OOCOO 

J = 
I 
1 

7 

8 

9 

10 

11 


o.coooo 

2 . OOOCO 

0. OOOCO 

2.00000 

1 .coocc 


2 

.50000 

.53000 

.50000 

.0 5000 

• \J 2 O.u u 


3 

-o.oocoo 

.50000 

-0.00000 

O.OCOOO 

o. ococo 


4 

-0.00000 

.56000 

-0.00000 

.10000 

. 10000 


K * 2 

J = 
l 
l 

l 

2 

3’ 

4 

5 

6 

2.00000 

2.00000 

-C. 00000 

0.00000 

-C. 00000 

0.00000 

2 

.67500 

. 1 50 )0 

-0.00000 

.0 1000 

-C. OCOCC 

fa .2 3000 

3 

. 35COO 

.20000 

-C. 00000 

-0.00000 

-0.00000 

-0.000 JO 

4 

l.OCOOO 

.10000 

-0.00000 

-0.00000 

-O.OCOOO 

-O.COOOO 

J = 
I 
1 

7 

8 

9 

10 

11 


2.0GCCC 


:. oooco 

7.0 “GOO 

2 . OCOCC 


2 

. 09 ;C 0 

. 5 90 : :• 

■ ~ 0 0 C j 

. G c i C - 

• ,/oC 


3 

.59000 

.50000 

-0.00000 

.10000 

• 1 Co Ow 


4 

. 90C0C 

.67500 

-0.00000 

.0 3000 

. 020CC 
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NOD* L AMPLITUDES « I MOOULUS # PH ASE > 


PHASE.LT. ISO DEG AND PHAS E . GT.- 180 DEG 


M » -5 

N 

1 3.O3E-04 -63.08 

2 2.76E-03 -44.44 

3 5 . 50E-03 -43.93 


M ■ 5 

2.69E-03 96.61 

4.22E-03 67.53 

4.60E-03 4 3.55 
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SUBROUTINE A A A A A 


INPUT FQS CASE 5 


ARRAY ARMSC 


I N OE X 

VALUE 

INOE X 

value 

I NDE X 

VA.JE 

INDEX 

V ALUE 

1 

.2000 

11 

-0. COCO 

21 

-O.COOO 

31 

-0. 0000 

2 

0.0003 

12 

-0. 0000 

22 

-o.cooo 

32 

-:. oooo 

3 

.3500 

13 

-0.0000 

23 

-o.cooo 

33 

-c. ocoo 

4 

-1. 0000 

14 

1. COOO 

24 

-0. COOO 

34 

-0. COOO 

5 

1. COOO 

15 

-1. 0000 

25 

3. COOO 

35 

- 0 . oooo 

fc> 

0.0000 

16 

-0.G030 

26 

-0. COOO 

3b 

-o. oooo 

7 

. 8750 

17 

o.cooo 

27 

-0.0000 

37 

-0. oooo 

3 

10. COOO 

1 3 

-0.0000 

28 

-0. oooo 

33 

i. oooo 

9 

0.0000 

19 

-0.0000 

29 

-C. COOO 

39 

-c. oooo 

10 

15. COCO 

20 

-0.0000 

30 

-o.cooo 

4C 

-0. oooo 


ARRAY AR 
K * I 


J * 
I 
1 

1 

2 

3 

4 

5 

6 

2.00000 

2.00C00 

-0.00000 

0.00000 

-0 .00000 

0.00000 

2 

.67500 

. 1 5000 

-0.00000 

.0 1000 

-c . ococc 

6.28000 

3 

.35000* 

.20000 

-0.00000 

-0.00000 

-0. 000 oc 

-D.C0003 

4 

l.ocooo 

.10000 

-0.00000 

-0.0 0000 

-C .00000 

-0.00000 

J * 
I 
1 

7 

8 

9 

10 

11 


o.oocoo 

2.00000 

C. 00000 

2.00000 

2.0C000 


2 

.50000 

.53000 

. 50000 

.0 5000 

. 0 50CC 


3 

-O.OOCOO 

.50000 

-0.00000 . 

O.UCOOO 

u • G CO Cc 


4 

K. = 2 

-o.oocoo 

• 5 60CO 

-G.OOOCO 

.1 COOO 

. icocc 


J = 
I 
l 

l 

2 

3 

4 

5 

6 

2.00000 

2.00000 

-o.oooco 

0.0 COOO 

- 0 . ocooc 

0.00030 

2 

. 675C0 

. 1 50 00 

-0.00000 

.0 10C0 

— 0 . ococc 

6.2 JCOO 

3 

. 35C0C 

.20000 

-C. 00000 

-3.00000 

-: . ococc 

-o.cccoo 

4 

l.OCCOO 

. 100C0 

-0.00000 

-0.00000 

-0 . 00000 

-0.00000 

J = 
I 
l 

7 

8 

9 

10 

11 


2.00000 

2.00000 

0.00000 

2 .00000 

2 . 000 OC 


l 

. t ° 5 C 0 

. <5 -3 r '■ 

, 7 00 GO 

.06530 

• .• D J 2 . 


3 

. 5=000 

« 7 'J L/ w 

“ .# . Jg J 

* 4. H- W ^ W 

• *. C - £ - 


4 

. 80C00 

.67500 

-u. 00000 

.0 3000 

.02000 
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— « <\j m 


MODAL AMPLITUDES 


(MQDULUSjPHASE) 


PHASE. LT.130 DEG AND PHA$ E . GT.-130 DEG 


M * -5 

*.D9E-03 -35.59 
7.29E-03 -64. 54 
6.94E-03 -57.70 


M * 5 

2.35E-03 -12C.7A 

1.27E-03 -159. 56 

1.88E-03 32.13 
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SUBROUTINE AAAAA 


INPUT FOR CASE 6 


ARRAV ARM ISC 


I NOE X 

value 

INDFX 

value 

INDEX 

VALUE 

INDEX 

value 

1 

. 2000 

I 1 

-0.0030 

21 

— 0 . 03 03 

31 

-0. 0000 

2 

0.0000 

12 

-0.0000 

22 

-0. 0330 

32 

- 0. 0003 

3 

. 3500 

13 

. 1000 ■ 

23 

-0.C330 

33 

-C. 0000 

A 

-l.COOO 

14 

l.COOO 

24 

-0. 00 30 

34 

-0. 0003 

5 

l.COOO 

15 

-i.oooo ■ 

25 

3. 0030 

35 

-0. 0030 

6 

0.0000 

16 

-3.0030 

26 

-0.0303 

36 

-0. 0033 

. 7 

. 8750 

17 

0.0000 

27 

-0. 0303 

37 

-c. oo:o 

8 

10.0000 

13 

-0.0030' 

28 

-0. CO 33 

38 

-0. 0000 

9 

O.COOO 

19 

-0.0030 

29 

-0.0003 

39 

-0. 0033 

10 

15.C000 

20 

-0. 0000 

30 

-0.0300 

40 

-0.0003 


ARRAY AR 


K « 1 


J = 
I 
l 

1 

2 

3 

4 

5 

6 

2.00000 

2.30000 

-0.00000 

0.00003 

-C.OOOCO 

0 . 00 033 

2 

.67500 * 

. 1 5000 

-0.00000 

.0 1000 

- G . 003 CO 

a. 25033 

3 

.35000 

.20000 

-0.00000 

-0.00000 

-C .00000 

-0.00030 

4 

1.00000 

. lOCOO 

-0.00000 

-0.00000 

-0.00000 

-0 .00033 

J * 
I 
l 

7 

8 

9 

10 

11 


0.00000 

2,00000 

o.noooo 

2.00C03 

2.00000 


2 

.50000 

■ .53000 

.50000 

.0 5003 

. 0500C 


3 

-0.00000 

• .50000 

- 0.00000 

0.0 0000 

c.oooco 


4 

-0.00000 

.56000 

-0.00000 

.1 0000 

. 100C0 


K = 2 

J * 
I 
l 

1 

2 

3 • 

4 

5 

6 

2.00000 

2.00C03 

-0.00000 

0.00003 

-O.OCOGO 

0 .00030 

2 

.67500 

.15000 

-0.30C03 

.01000 

-c. ococo 

6.23033 

3 

.35000 

.20C00 

-0.30000 

-0.00000 

-c.oooco 

-0 .00050 

4 

l. 00000 

.10000 

-0.30000 

-3.00000 

-C .00000 

-0.00033 

J * 
I 

1 

7 

8 

9 

10 

11 


2.CCCG3 

7 . DOC' 3 

•j • 3 0 0 0 

2.0CG3C 

Z. 30CCC 


7 

.69500 

• ; 9 C 0 j 

. 5 3003 

.3 5503 

. 3=0 03 


3 

. 59000 

.50003 

— 0.00000 

.1 COO 3 

• lU'-Cw 


4 

.80000 

•o75C0 

-0.30000 

.0 3000 

. C20C0 





ROOAL ARPUTU06S 


(«oouLUS»PHAse) 


PHASt.UT.i80 DEC ANO PHASE. GT. -130 OEG 


R • -5 

3.136-03 60.47 
9.156-C3 -10.21 
1.05E-02 -38.34 


R » 5 

2.73E-03 -31.72 

1. 506-03 -84.26 

1.756-03 80.62 
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SUBROUTINE AAAAA 


INPUT FOR CASE 7 


ARRAY ARMISC 


INOEX 

VALUE 

INOEX 

VALUE 

INDEX 

VAL JE 

INDEX 

V ALUE 

1 

.2000 

1 1 

-0. 0000 

21 

-0.0000 

31 

-C. 0000 

2 

0.0000 

12 

-0. 0000 

22 

-0.0000 

32 

-0. cooo 

3 

.3500 

13 

-0. 0000 

23 

-O.COOO 

33 

- 0. 0000 

4 

-l.COOO 

14 

1.0000 

24 

-0.0000 

34 

-0. 0000 

5 

1. 0000 

15 

-1.0000 

25 

3. CO DO 

35 

-0.00 00 

6 

0.0000 

16 

-0. 0000 

2 o 

-0. COOC 

36 

-C. 0000 

7 

.8750 

17 

0.0000 

27 

-0. 0000 

37 

-C. 0000 

8 

10.0000 

13 

-0.0000 

28 

-O.COOO 

38 

-G. 0000 

9 

0.0000 

19 

-0.0000 

29 

-0. 0000 

39 

-0. 0000 

10 

15.0000 

20 

-0.0000 

30 

-0. 0000 

40 

-0. 0000 


ARRAY AR 


K = I 


J - 
I 
1 

1 

2 

3 

4 

5 

6 

-0.00000 

-0.00000 

-0.00000 

-0.00000 

-0.00000 

-0.00000 

2 

.675(70 

.15000 

-0.00000 

.0 1000 

-o.ococo 

6.28000 

J a 
I 
1 

7 

8 

9 

10 

11 


-0.00000 

-0.00000 

-0.00000 

-0.00000 

-o.oocoo 


2 

K * 2 

.50000 

.53000 

.50000 

.0 5000 

.05000 


J * 
I 
1 

1 

2 

3 

4 

5 ■ 

o 

-0.00000 

-0.00000 

-0.00000 

-0.0 0000 

-c.ocooc 

-0.00000 

2 

.07500 

.15000 

-C. 00000 

.0 1000 

-0.00000 

6. 28000 

J * 
I 
1 

7 

8 

9 

10 

11 


-o.oocoo 

-0.00000 

-0.00000 

-0.00000 

”w #00000 


2 

.69500 

.59000 

. 50000 

.06500 

• ObOOO 




uj ro »- 


MOOAL AMPLITUDES * < MODULUS # PH ASE ) 


PHASE. LT. 180 DEG AND PHAS E . G T. - l 30 DEG 

H * -5 M = ■ 5 

4.99E-03 -17.19 2.96E-03 -79.90 

3.05E-03 -63.00 2.65E-03 -106.36 

1.03E-02 -105.93 5.36E-OA -153.5b 
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3.2 Primary Subroutine AABAA 


Case 


1 Inlet stator-rotor interaction, rotor is sound source: 

ARMISC(5) » ISOROS = 1. 

ARMISC (18) = IAERO = 1. 


2 Inlet stator-rotor interaction, inlet stator is sound source: 

ARMISC (5) = ISOROS = 1. 

ARMISC(18) = IAERO = -1. 

3 Rotor-outlet stator interaction, outlet stator is sound source 

ARMISC (5) = ISOROS = 2. 

ARMISC (18) = IAERO =1. 

4 Rotor-outlet stator interaction, rotor is sound source: 

ARMISC (5) = ISOROS = 2. 

ARMISC (18) = IAERO = -1. 
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3 . 2,1 Card Image of Main Driver Input 


AABAA 

.2 

.0 

.3 

2. 


.0 

15. 

1. 


2. 

2 * 

.675 

.1 

.35 

.0 

1. 

.2 

2. 

2 . 

.675 

.15 

.35 

.2 

1. 

.1 

.2 

.9 

1. 

2. 


2 . 

2. 

.675 

.1 

.35 

.0 

1. 

.2 

2. 

2 . 

.675 

.15 

.35 

.2 

1. 

.1 

.9 

10 . 

- 1 . 

2. 


1 

2 . 

2 . 

.15 

.35 

.2 

.3 

.1 

.1 

2 . 

2 . 

.15 

.375 

.2 

.1 

.1 

.95 

.0 

15. 

- 1 . 


1 

2. 

2 . 

.15 

.35 

.2 

.3 

.1 

.1 

2. 

2 . 

.15 

.375 

.2 

.1 

.1 

.35 

.2 

15. 

1. 


2. 


2 . 


.35 -1. 1. 

2 . 2 . .0 


.0 

1. 


.375 10. 

- 1 . 


.9 

.01 


.0 

.01 


.35 *1. 


2 . 


2. 


.0 .0 

6.28 .5 

.0 2 . 

6.26 .695 

.59 

.a 


2 . .0 

. 53 .5 

. 5 
. 56 

2. .0 

. 59 .5 

. 5 

. 675 

.375 10. 

.3 


.0 

.01 


.0 

.01 


.35 -1. 

.0 2 . 


.0 .0 

6.23 .5 

.0 2 . 

6.28 .695 

.59 

.8 


2. .0 

.53 .5 

. 5 
. 56 

2 . .0 

.59 .5 

. 5 

.675 


2 . 

2 . 


.0 

1. 


.875 .0 

.0 


.9 


2 . 2 . .0 



2 . 

.675 

.15 

.35 

.2 

1 . 

.1 

2 . 

2 . 

.675 

.2 

.35 

.2 

1 . 

.2 

.0 

13 . 

.0 

2 . 


2 . 

.15 

.375 

.2 

.1 

.1 

.35 

2 . 

2 . 

.15 

.1 

.2 

.1 

.1 

.1 

.2 

15 . 

- 1 . 


2 . 

2 . 

.6 75 
.15 
.35 
.2 
1 . 

.1 

2 . 

2 . 

.6 75 
.2 
.35 
.2 
1 . 

.2 


1 1 

2 . 

2 . 

.15 

.075 

.2 

.1 

.1 

.35 

2 . 

2 . 

.15 

.1 

.2 

.1 

.1 

.1 


.01 


.3 

.01 


.35 - 1 . 

0 . 2 . 


.3 

.01 


.0 

.01 


6.28 .695 

.59 

.9 

.0 2 . 

6.28 .63 

.59 
.675 

2 . .0 
1 . 

2 . 


. 59 .5 

.5 

.675 

.0 .0 

.5 .5 


.975 .0 

1 . 


.0 2 . 

6.23 .695 

.59 

.8 

.0 2 . 

6.28 .63 

.59 
.675 


2 . .0 

.59 .5 

. 5 

.675 

.◦ .0 

.5 .5 
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3.2.2 Primary Subroutine Input /Output 


SUBROUTINE A A BA A 
INPUT POR CASE I 


ARRAY ARNISC 


INDEX 

VALUE 

INDEX 

VALUE 

INDEX 

VALUE 

INDEX 

VALUE 

I 

. 2000 

1 l 

-0 . 0 oG j 

21 

O.OGCO 

31 

— 0 . 0 L 0 0 

2 

0.0000 

1 2 

-0 .0 -03 

22 

-0.0000 

32 

-0. OCOO 

3 

. 3500 

13 

-0 . JCOO 

23 

-0.0000 

33 

-0. 0-00 

4 

-i.0000 

14 

1 • j C GO 

2* 

-G. OOOG 

34 

-O.GCOO 

5 

I. GOOD 

15 

-i.OCOO- 

25 

2.00 GO 

35 

— 0 . 0 00 0 

6 

0.0000 

lo 

-O.OGGJ 

26 

-0. OOGO 

36 

-0. OCOO 

7 

. 8750 

17 

o.occo 

27 

- C . 0 J C 0 

37 

-0 • GOO 0 

8 

iG.GOOO 

18 

1.0-03 

2 6 

-C.0000 

38 

-0. oooo 

9 

0.0000 

19 

2 . 0 COO 

29 

-O.OOGO 

39 

-0. OCOO 

10 

15. GOOD 

20 

2.0 GOO 

30 

-0.0000 

40 

-0.0000 


ARRAY AR 


K * I 


0 * 
I 
l 

1 

2 

3 

4 

5 

6 

2. 00000 

2.00000 

•0 • C 0 0 G G 

0 . 00000 

-3.03000 

0.00C03 

2 

. 67500 * 

.15000 

* 0 aCVwWO 

.01300 

-3. GOOOO 

6.28003 

3 

. 35G0G 

.20000 


— 0. — 0300 

-3.G00D0 

-3.00000 

4 

1. COOOO 

.10000 

-3*00300 

-0. COOOO 

-0.00030 

-0.00003 

J • 
I 
1 

7 

8 

9 

10 

11 


0. GOOOO 

2.00000 

0 • 00 OCG 

2 • OOOCO 

2. 00030 


2 

. 50000 

.53000 

• 5 C C 

. 103 — — 

. -.50 30 


3 

-0. 00000 

.50000 

— 0 

0. COOOO 

3 . 0003 0 


4 

K » 2 

-0. 00000 

.56000 

— 3 • 0 0 w 0 0 

. 20000 

. 10030 


J « 
I 
1 

l 

2 

3* 

4 

5 

6 

2. 00000 

2.00000 

— 0 • 0 0 0 C 0 

0.00003 

- J . 0003 0 

0. 3000 3 

2 

. 67500 

.15030 

“0 • G G u o 

. — ' 1 0 — 0 

-5 .00330 

6.25C00 

3 

.35000 

.20000 

•0.00000 

— 0 . GOO jO 

— J . -033- 

-0. OGCOO 

4 

1. 00000 

•luCOO 

— J llouww 

— 0 . C 3 3 3 — 

— j . *— — 1 0 3 0 

-O.OGCO 0 

J » 
I 
1 

7 

8 

? 

10 

11 


2. 00003 

2 j 3 

• C J - V. w 

2 . v 3 — — 0 

2.33 333 


2 

.69503 

. 5 9 0 j 3 

• / J J c J 

« * ^ J J G 

• *. •» V -4 


3 

. 59000 

.50000 

•0 • 0 0 w G 0 

. 20003 

• iJJGG 


4 

.30000 

.67533 

* J iCjVWto 

• 1 C J w 'v 

• j 50) j 



MOOAl AMPl I TUDES » (HOOU.US»PHA SE > 

FHAS E .LT, 1 go DEG A NO PHaS E. GT . - 1 30 .36 G 


M . -5 
H 

l 3. 176-03 -105.54 
i 1.23E-03 -55.62 
3 4.046-05 170.01 


M • 5 

1 .2d6-02 -67.40 
2 • 2 oE-04 32.08 
0. 306-04 118.40 
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SUBROUTINE AA0AA 


INPUT FOR CASE 2 


ARRAY ARPISC 


INDEX 

VALUE 

INDEX 

VALUE 

INDEX 

VALUE 

INOcX 

VALUE 

l 

.2000 

1 1 

-0 . 0 vj 

21 

0.0000 

3 l 

-0. 0000 

Z 

0 . 0 3 0 *> 

12 

-o.oco^ 

22 

-O.OOGC 

32 

— 0 . uC D ^ 

3 

. 3500 

13 

- 0.0 coo 

23 

-0.0000 

33 

-0. ocoo 

A 

- UOOOO 

l A 

L . 0 000 

2A 

“0 • 00 G 0 

3 a 

-0.0000 

5 

1.0000 

15 

0.0 000 

25 

2.0000 

35 

-0. 0000 

6 

o.cooo 

lb 

-0 . 0 uOO 

26 

-0.03CG 

3b 

- 0 . ocoo 

7 

. 8750 

17 

l .ocoo 

27 

-0.0000 

37 

- 0 . ocoo 

8 

10.0000 

18 

- 1 • 0 GGG 

23 

-0 . 0000 

38 

-0. 0000 

9 

0.0000 

19 

2.0000 

29 

-0.0000 

39 

— . C GO 0 

10 

15.0000 

20 

2. OCOO 

30 

, —0 .0000 

A C 

-G. OCOO 


ARRAY AR 


K m 1 


J * 
l 
1 

1 

2 

3 

A 

5 

6 

2. 00000 

2.C0003 

-0 .03000 

0.C03C3 

- 3 . 0300G 

0.00 j 30 

2 

. 67500 

.1 5003 

-3 .OCOGO 

.01033 

-3 .03000 

6.28C30 

3 

. 35000 

.20030 

-0. OOOCO 

-0.0030. 

-j.CUOOC 

—0. w 003 0 

A 

1.00000 

.10003 

— O.Gu^wO 

-3.C3333 

-3 . 000 00 

-O.OGcOO 

J * 
I 
1 

7 

8 

9 

10 

11 


0 . v 0 0 0 0 

2.GGGJ3 

j . C 3 G 0 

2 .0030 5 

2.00030 


2 

. 50000 

. 5 3 COO 

.50000 

. 10000 

. C5030 


3 

-0. 00000 

.50003 

-3. OOOCO 

3 . 0000. 

3 . COOO 0 


A 

K » 2 

-0. OOGOO 

. 56000 

—3 . OC 3 C w 

. 20030 

. 10030 


J * 
I 
1 

1 

2 

3 

A 

5 

6 

2.00000 

2.00000 

-3 .00000 

0.00003 

-3 . 03030 

0.00030 

2 

. 67500 

. 1 5 CO 0 

— w . C 3 C 

.01333 

— 5 . uO 33 3 

b. 28030 

3 

.35030 

.20033 

—3 .CDOwG 

— 0 . C C 3G 3 

-3 . 00030 

-O.OGCOO 

A 

l. 30000 

.10033 

— 3 .C.3GG 

- 3 . 0030 3 

-0 . 0003 C 

-0.00330 

J ■ 
I 

l 

7 

B 

9 

13 

11 


2.00000 

2.03C03 

3 . 0 3 3 C 0 

2.00333 

2.03030 


2 

.c.9500 

. 59COO 

. 3v 0 C 

. 1 53. 3 

.37533 


3 

. 59030 

. 50 03 3 

—3 • 0 . 3 u ^ 

.23333 

. 13330 


A 

.80000 

.67500 

—0 •GouCv 

. lOOOo 

.05333 




KjJ tM ^ Z 


MOOAL AMPUTUOES 


(MODULUS, PHASE I 


PHASE. LT.180 DEG ANO PH AS E. GT .- 1 3G DEG 

M « -5 H » 5 

4.72E-03 139. 39 1.54E-G2 17*. 89 

3.14E-02 128.49 5 .G7E-02 132.5b 

7.46E-02 116.52 3.94E-G2 114.36 
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SUBROUTINE A Ad A A 


IMPJT = OR CASE 3 


ARRAY armsc 


INDEX 

VALUE 

INDEX 

VALUE 

INDEX 

VAL UE 

INDEX 

VALUE 

I 

0.0003 

11 

-0.0000 

21 

2.0000 

il 

- 0 . ocoo 

2 

. 2000 

12 

-0.0 000 

22 

-0.0)00 

32 

- 0 . cooo 

3 

.3500 

13 

-0.0003 

23 

-0.0000 

33 

-o.ccoo 

4 

-1.0000 

14 

1 . 0 0 0 0 

24 

-0.0000 

34 

-o.ocoo 

5 

2. COCO 

15 

-0 . 0 000 ■ 

25 

2.0000 

35 

-o. ocoo 

6 

0.0000 

la 

0 .OuOO 

26 

-Q .0000 

36 

-0.0000 

7 

. 3750 

17 

-1.0000 

27 

-0.0000 

37 

-o.ocoo 

3 

C. 0000 

13 

1.0 uCO 

23 

-O.OOuO 

33 

— 0 . 000 0 

9 

10.0000 

19 

O.OCOJ 

29 

-3.0300 

39 

- 0 . ocoo 

10 

15.0000 

20 

2.0 COO 

30 

-0.0000 

40 

-o.ocoo 


ARRAY A R 


K • 2 


J * 
I 
1 

1 

2 

3 

4 

5 

6 

2. 0000 0 

' 2.00000 

-o.oooco 

0 . 00300 

-3.03333 

C . Q Q GO <J 

2 

.67500 

. .15000 

-o.oooco 

.01000 

-3.000)0 

b. 2 3000 

3 

. 35000 

.20000 

-3 .00003 

-0.00303 

-3 .003)0 

-0.000)3 

4 

1.00000 

.10030 

-O.CjOCO 

— 0 • COQv.0 

-j .000)3 

-C .0003 0 

J * 
I 
1 

7 

8 

9 

10 

11 


2. 00000 

2.00000 

o.coooo 

2.C0300 

2.00030 


2 

. 69500 

.59033 

. 5j3lO 

.15300 

.07533 


3 

. 59000 

.50030 

”0 . 0 JOC 0 

.20303 

. 13030 


4 

.BOCOO 

.67530 

• C’ W V V V 

. 10003 

.050)0 


< * 3 

J > 
I 
1 

1 

2 

3 , 

4 

5 

6 

2. 00000 

2.00033 

-3.00300 

0.00003 

-3.000)0 

0.00000 

2 

. 67500 

.15030 

~0*00uu0 

.01300 

-3.C3330 

6 . 2 3 C 0 0 

3 

.35003 

.2 000 0 

-3 .O jDOO 

-0.00303 

-3 .000)0 

-0. 00033 

4 

1. 00033 

.10 300 

•0 • Q v OuO 

— 0 . 0030 0 

-3.00030 

~C. 00030 

J « 
I 
l 

7 

3 

9 

13 

11 


2. 00000 

O.OOC33 

} « 0 0 3 u 0 

2 . C 030 3 

1 . 330)0 


c 

. a 3 c ;• o 

• 2 w 0 

- - V V w 

• V W w 

• iOOu V 


3 

. 59000 

• W U C 3 V 

■" J •WvVWV 

• ZCwOj 

. 10030 


4 

.67500 

-O.GOGDO 

“0 • 0 j JwO 

• 2Q0G 

. 103)0 




Z Hfvj m 


MODAL AMPLITUDES 


(MODULUS. PHASE! 


PHASE. LT.183 DEG AND PHAS E. &T . - 1 30 DEG 

M « -5 M - 5 

1.61E-03 -125.08 e . 5<»E -C 3 71.63 

8.7AE-0<. 157.03 3.72E-03 133.00 

<».3<>E-Q3 173. 56 1.16E-02 -175.00 
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SUBROUTINE AA8A A 


INPJT P OR CASE 4 


ARRAY ARKIS: 


INDEX 

VALUE 

INDEX 

VALUE 

1 

0.0300 

1 1 

-0 . DCCO 

2 

. 2000 

12 

-3 . 0 lOw 

3 

. 3500 

13 

-0.0000 

4 

- 1.0000 

14 

1 • 0 0 C j 

5 

2.0000 

15 

—0 . 0 OC u 

6 

0.0000 

16 

l.OuOO 

7 

.8750 

17 

o.ocoo 

3 

0. 0000 

13 

-1.0C03 

9 

io. oooo 

19 

o.ocoo 

10 

15.0000 

20 

2.0C0J 


i NOE X 

VALUE 

INDEX 

VALUE 

21 

2.0000 

3 1 

-0 . 0000 

22 

-0.0000 

32 

-0.0000 

23 

-0.0000 

33 

-o.ocoo 

24 

-0.0000 

34 

-o.ocoo 

25 

2.000C 

35 

-o.ocoo 

26 

-0.0000 

36 

-0. 0000 

27 

-o.ooco 

37 

-o.ocoo 

28 

— . 0 0 w 0 

33 

-o.ocoo 

29 

-0.0000 

39 

-o.ocoo 

30 

-0.0000 

40 

-0 . 000 0 


ARRAY (VR 


K * 2 


J * 
I 
1 

1 

2 

3 


5 

6 

2.00000 

2. CO COO 

—0 . C 0 0 C 0 

0 .00000 

-0.00000 

O.OGCOO 

2 

.67530 

.1 5003 

-o.oooco 

.01003 

-0.00030 

b. 2 800 0 

3 

.35000 

.20000 

-3.00000 

-0.00000 

- J . 00030 

-O.OOCOO 

4 

1.00000 

•lOCOO 

— 0 .OuwwO 

-C.COOGC 

-0 .GOOJG 

-0.00000 

J - 
I 
1 

7 

8 

9 

10 

11 


2.00000 

2.00000 

0 .GGOCO 

2 . 0000 0 

2.00000 


2 

. 69500 

.59000 

.50000 

. 150C0 

.07500 


3 

.59000 

.50003 

-0 .00000 

.20000 

. 1GOOO 


4 

.30000 

.67500 

-0 .00000 

. 10000 

.05000 



< » 3 


J * 
I 
1 

1 

2 

3 

4 

5 

6 

2. 00030 

2.00000 

-O.OOCOO 

0.00300 

-0.00300 

0. 00000 

2 

. 67500 

.15000 

•0 • 0 \j 0 C 0 

. 0 1 3 0 

-0. 003 03 

o. 23033 

3 

.35030 

.20000 

*0 *00000 

-0.C0303 

-0 .00300 

-O.OGCOO 

4 

l. 00030 

.10000 . 

-0 • 0^000 

-0.00003 

-0.00000 

-0.30000 

J - 
I 

1 

7 

8 

9 

13 

11 


2. 00000 

^ * •» A 

> w 

*v ^ » 

> • W V V> W 

. • i/ ^ ^ J 

2 .00 i JO 


2 

. O30DG 

• 50 0 JO 



• k. j ^ j -j 


3 

. 59000 

“G *0000 0 

-0 *0 J JCO 

.23000 

. ICOOO 


4 

. 67503 

— 0 • C 0 GO 0 

•0*GOOGG 

. 20300 

. 10000 




Modal amplitudes - <m30ulus»phasei 

PHASE.LT. 180 OEG AND PH A S £ . GT . - i 30 DEG 


N « -5 

N 

1 1.40E-02 -11.73 

2 3.39E-02 -55.51 

3 4.93E-G2 -65. *6 


H • 5 

4.20E-Q2 23.32 
1.96E-02 -19.56 
<* .95E-02 157.81 
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3.3 Primary Subroutine BCDAA 


Case 


1 


2 


3 


4 


Cone model distortion: 

ARMISC(22) =1. = distortion model selector 

ARMISC(23) = .95 = maximum distortion 

ARMISC(24) = .8 = radial location of maximum distortion 

Power law distortion model: 

ARMISC(22) = 2. 

ARMISC(23) = 1. = exponent q 

AR(2,12,2) = .1 = a first cosine coefficient of the 

Fourier series representation of the 
incident velocity distortion 

Fourier series coefficient input for incident velocity 
distortion: 


ARMISC (22) 

= 4. = 

The Fourier coefficients of the dis- 
distortion are computed by DISCOEF and 
ARMISC(22) is reset to 3 before used b> 
subroutine BCDAA 

ARMISC( 23) 

= 52. = 

number of Fourier series 
to be computed 

coefficients 

ARMISC(24) 

= 1. = 

MULTFCT 


Cone model 

distortion 

as in case 1, but use of 

noncompact 


source theory: 


ARMISC (38) 


1 



3.3.1 Card Image of Main Driver Input 


bcoaa 

.0 15 . 

.0 

3 . 

0 1 0 

2 . 2 . 

2 . 2 . 

.675 .15 

.365 .06 

.35 .2 

.1 .1 

1 . .1 

.33 .32 

.0 15 . 

.3 

3 . 

0 1 0 

2 . 2 . 

2 . 2 . 

.675 .15 

.365 .36 

.35 .2 

• l • 1 

l • • i 

.03 .02 

.0 15 . 

.0 

3 . 

0 1 0 

17 . 

.0 

.6 75 .1 

.35 
.68 
.72 
.74 
.76 
.77 
.78 


. 35 


.35 


.35 


- 1 . 


.0 .75 

1 . .0 

1 . .95 


.0 

2 . 

2 . 

.0 

6.28 

.73 

. 61 

.5 


.56 

. 5 



.9 

. 725 



.0 

.75 



1 . 

.0 



2 . 

1 . 


.0 

2 . 

2 . 

.0 

6.28 

.73 

.61 

.5 


.56 

. 5 



.9 

. 725 



.0 

.75 



1 . 

.3 



4 . 

52 . 



17 . 

17 . 


6.28 

.73 

. 62 

.5 


.56 

.5 



.733 

. 614 



.754 

. 023 



.764 

. 635 



.775 

. 642 



.733 

. 045 



.785 

. 649 



WOO 



.79 

.790 

.652 

• 

at 

o 

.795 

. 656 

.31 

.800 

.659 

.32 

.306 

.663 

.83 

.311 

. 666 

.84 

.816 

.670 

.86 

.827 

. 677 

.88 

.837 

.684 

.92 

.858 

.697 

1 . 

.9 

.725 


15 17 


- 10 . 

- 9 . 

- 6 . 

- 4 . 

- 3 . 

- 2 . 

-1 . 

.0 

1 . 

2 . 

3 . 

4 . 

6 . 

9 . 

10 i . 


.0 

.C 

.00094 

.00282 

.00413 

. 005*3 

.30641 

.00677 

.00641 

. C 05 43 

.00413 

.00232 

.00094 

.0 

,3 


.0 

.C 

.00214 

.0065 9 

.009 77 

.01296 

.31534 

.01623 

.01534 

.01296 

.00977 

.0065 9 

.00214 

.0 

.3 


,0 

.C 

.00378 

.01202 

.01302 

, 02*06 

.32962 

.03033 

.02862 

« C 2406 

.01802 

.01202 

,00378 

.0 

.3 


.0 

.0 

.00458 

.01477 

.02227 

.02952 

.33559 

.03774 

.03559 

.02952 

.02227 

.01477 

. 00*58 

.0 

.3 


.0 

.0 

.00521 

.0170 6 

.02586 

.03479 

.34158 

. 044 12 

.04158 

.03479 

.02586 

.0170 6 

.00521 

.0 

.3 


.3 

.0 

.00557 

.0185 1 

.02320 

.033 10 

.34563 

.04846 

.04563 

.03310 

.02820 

.0165 i 

.00557 

.0 

.3 


.0 

.0 

.00559 

.01337 

.02390 

.039 19 

.34704 

.05 

.04704 

.03919 

.02390 

.01 387 

.00559 

.0 

.3 


.0 

.0 

.00527 

• .01807 

.02732 

.03787 

.34556 

.04846 

.04556 

.03787 

.02782 

.0180 7 

.00527 

.0 

.0 


.0 

.0 

. 00467 

.0162 5 

. 02516 

. 03*37 

.04145 

. 04*12 

.04145 

.03437 

.02516 

.01625 

.00467 

.0 

.0 


.0 

.C 

. 00389 

.01373 

.02137 

.02931 

.03543 

.03774 

.03543 

.02931 

.02137 

.01373 

.00339 

.0 

.0 


;o 

.0 

. 0 C 3 C * 

. Cl C 9 c 

. 0 170 5 

. 023*8 

.02345 

.03033 

.02345 

. 02348 

.01705 

.01090 

.00104 

.0 

.0 


.0 

.0 

.00154 

.00569 

.00900 

. C 12 *9 

.01520 

.01623 

.01520 

.01249 

.00900 

. 00 5 o 9 

. 0015 * 

.0 

.0 
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• D 

.0 . 

.00061 

.00232 

.00370 

.005 17 

.00633 

.00633 

.00517 

.00370 

.00 23 2 

.00061 

.0 

.0 




.35 

- 1 . 


.0 


.75 


.0 

15 . 




1 . 


.0 


.0 





1 . 


.95 


3 . 




- 

1 . 




0 

1 0 








2 . 

2 . 



.0 

2 . 

2 . 


.0 

2 . 

2 . 








.675 

.15 



6.28 

.73 

. 61 


.5 

.065 

.06 








.35 

.2 




.56 

. 5 



.1 

.1 








L. 

.1 




.9 

.725 



.03 

.02 









.00677 
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3.3.2. Primary Subroutine Input /Out put 


subroutine bcdaa 

INPUT FOR CASE 1 


ARRAY ARM I SC 


I NOE X 

VALUE 

INOEX 

VALUE 

INOEX 

VALUE 

INOEX 

VALUE 

1 

-O.GOOO 

11 

-0.0000 

21 

-0. 0000 

31 

-0. 00)0 

2 

-0.0000 

12 

-o.cooo 

22 

1. 0000 

32 

-c. oooo 

3 

.3500 

13 

-0. 0000 

23 

.95 00 

33 

-0. 0000 

A 

- 1.0000 

14 

1.0000 

24 

.8000 

34 

-0.0000 

5 

-0.0000 

15 

0.0000 

25 

3.0000 

35 

-0. 00)0 

6 

0.0000 

16 

0.0000 

26 

-O.COOO 

3o 

-0. 0000 

7 

.7500 

17 

0.0000 

27 

-O.COOO 

37 

-0. 0000 

a 

0.0000 

13 

-0.0000 

23 

-0.0000 

33 

-0.0000 

9 

0.0000 

19 

-0. 0000 

29 

-0. 00 00 

39 

-0. 0030 

10 

15.0000 

20 

-0.0000 

30 

-o.cooo 

4C 

-0. 00)0 


ARRAY AR 

K « 2 

J ■ 

I 

l 

1 

2 

3 

4 

5 

o 

2.00000 

2.00000 

- 0.00000 

- 0.00000 

- 0. 00000 

0.00000 

2 

.67500 

.15000 

- 0.00000 

- 0.00000 

— 0 . ococo 

6.23000 

3 

.35000 

.20000 

-OiOOOOO 

- 0.00000 

-o.occoo 

- 0.00000 

4 

1.00000 

.10000 

- 0.00000 

- 0.00000 

- o.ococo 

- 0.00000 

J ■ 
I 
1 

7 

B 

9 

10 

11 


2.00000 

2.00000 

0.00000 

2.00000 

2.00000 


2 

.73000 

.61000 

.50000 

.06500 

. 060 CC 


3 

.56000 

.50000 

- 0.00000 

. 1 cooo 

. 1 C 0 CC 


4 

.90000 

.72500 

- 0.00000 

.0 3000 

.02000 




MODAL AMPLITUDES ■ ( MODULUS .PH* St- » 


PHASE.LT. 189 DEG AND PHAS E. GT ,-t 30 DEG 


*1 

H • 

-11 

M » 

-10 

M • 

-9 

li 

i 

3.45E-05 

113.90 

1.71E-C5 

-62.43 

1.5aE-u5 

121.31 

u 

M » 

-8 

M « 

-7 

M • 

-6 

i 

1.57E-95 

-54.88 

1 .66E-95 

129.00 

1 .796-05 

-47.07 

2 



4*196-05 

116.92 

1. 10E-05 

-61.65 

N 

1 

M « 

-5 

M ■ 

-4 

M » 

-3 

1.97E-05 

136.91 

2 .196-05 

-39.07 

2.43E-05 

144.97 

2 

6.096-06 

115.95 

2.39E-0& 

-87.97 

3. 16E-06 

-7.20 

3 



2.37E-05 

125.25 

1.7aE-05 

-51.V.0 

ki 

M « 

-2 

M • 

-1 

M ■ 

0 

n 

i 

2.66E-05 

-30.99 

2 .90E-05 

153.05 

3.296-05 

-22.33 

2 

7.976-06 

157.72 

1 . 33E-05 

-22.45 

1.75E-05 

1 69 . 7 1 

3 

1.59E-05 

132. 76 

1.57E-&5 

-43.27 

1. 7JE-05 

-33.83 


M » 

1 

H ■ 

2 

M a 

3 

N 

• 






1 

4.026-05 

-13.78 

5.10E-05 

-14.66 

6.44E-G5 

-19.59 

2 

1.866-05 

165.69 

1.566-05 

173.29 

9.21E-G6 

-170.14 

3 

2.006-05 

146.30 

2.53E-05 

152.07 

3.39E-05 

158.25 


M • 

4 

M • 

5 

M • 

6 

1 

3.056-05 

-6. 6 1 

l .01E-04 

-2.77 

1.27E-04 

.39 

2 

4. 836-06 

-74.96 

1.7wE-05 

-21.42 

2. 14E-05 

-7.39 

3 

4.75E-05 

164. 57 





AJ 

M ■ 

7 

M ■ 

8 

M ■ 

9 

1 

1.62E-04 

4. 33 

2 .07E-Q4 

7.48 

2. 54E-04 

10.30 

2 

7.31E-05 

163.55 





M 

M « 

10 

M • 

11 



l 

2.42E-04 

12.85 

1 .02E-03 

- 160.87 
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. SUBROUTINE BCOAA 


INPUT 

FOR CASE 2 



ARRAY 

ARM ISC 



INOEX 

VALUE 

INOEX 

VALUE 

I 

-0.0000 

l 1 

-0. COOO 

2 

-0.0000 

12 

-0. 0000 

3 

.3500 

13 

-0.0000 

4 

-l.COOO 

14 

1. GOOO 

5 

• -0.0000 

1 5 

0. 0000 

6 

0.0000 

16 

0.0000 

7 

.7500 

17 

0.0000 

8 

0.0000 

13 

-0.0000 

9 

0.0000 

19 

-0. 0000 

10 

15.0000 

20 

-0. 0000 


INOEX 

VAL JE 

INOEX 

VALUE 

21 

-0.0000 

31 

-C. COOO 

22 

2. CO OO 

32 

— u. 0003 

23 

1.0000 

33 

-0. 00 JO 

24 

-0.0003 

34 

-0. COOO 

25 

3.0300 

35 

-0. COOO 

26 

-0. CO OO 

36 

-C. 0003 

27 

-0. 0030 

37 

- 0. 00 JO 

28 

-0. COOO 

3a 

-C. 0000 

29 

-0.0300 

39 

-0.0000 

30 

-0.0300 

40 

-0. 0030 


ARRAY AR 


K = 2 


I 

1 

1 

2 

3 

4 

5 

6 

2.0CC00 

2.00C00 

- 0. 00000 

-0.00000 

-0.00000 

0.00000 

2 

. 675G0 

. 15000 

-0.00000 

-3.0 COCO 

- 0 . OCO CO 

a. 28030 

3 

.35000 

* .20000 

-0.00000 

-3.00000 

-0 . OOGOO 

-O.OCOJO 

4 

1.00000 

.10000 

-o.oo'ooo 

-0.00000 

-O.OCGCC 

- 0 . CO 003 


J * 

1 
1 

2 

3 

4 


7 

8 

9 

10 

11 

12 

2.00000 

2.00000 

0.00000 

2.00000 

2. OGOOC 

-0.00000 

. 73000 

.61000 

.50000 

.0 6500 

. 060C0 

.10000 

.56000 

.500 00 

-3.00000 

.10000 

. ic-coo 

-0.03000 

.90000 

.72503 

-0.00000 

.03000 

. 020CC 

-0 .00030 



MQ04L AMPLITUDES = < MO OULUS » PH ASE ) 

PHASE.LT. 180 0 EG AND PHAS E .GT.-130 DEG 


N 

1 

M * 

-11 

M * 

-10 

M a 

-9 

2. 16E-03 

109.99 

9.7AE-0 A 

-66.39 

8.1CE-0A 

lla. 02 

N 

1 

H * 

-3 

M * 

-7 

M = 

-6 

7. A7E-CA 

-61.21 

7.20E-0A 

12 1. 33 

7.1 1E-0A 

-56. 27 

2 



3.25E-03 

68.82 

1.00E-03 

- 113. 02 

N 

1 

M * 

-5 

M * 

-A 

M = 

-3 

7. 15E-0A 

125. 7 A 

7.27E-0A 

-5 2.77 

7. A5E-0A 

123. 03 

2 

8.07E-0A 

OA. 02 

7. 06E-0A 

- 12 0. 35 

b . 2 3E-0A 

52. 31 

3 



5. A IE -0 A 

-153.35 

2. 56E-0A 

9. 39 

N 

1 

M * 

-2 

M * 

-1 

M = 

0 

7 . 59E-0 A 

-51.59 

7. 53E-OA 

12 9. 39 

7.55E-0A 

-A5. 13 

2 

5 . 58E-OA 

-137. 3A 

5.28E-OA 

30. 33 

5. 16E-0a 

- 155. d3 

3 

1.6AE-0A 

165.60 

1.3AE-0A 

-36. 12 

1.26E-0A 

- A 9. 01 

N 

1 

M -. 

1 

M * 

2 

M * 

3 

7.7AE-GA 

-36.28 

3.21E-0A 

-2 5.81 

8.8 1E-0A 

- lo. 69 

2 

A. 79E-0A 

-153. 32 

3. 976 -0 A 

-1A 5.27 

2.39E-0A 

- 1 32. 91 

3 

1.23E-OA 

125.72 

1.25E-0A 

122.93 

1.39E-0A 

113. 10 

N 

l 

M « 

A 

M » 

5 

M * 

6 

9 . A5E-0A 

-9. 6C 

1. 9 IE - 03 

- 3.99 

1.09E-03 

.63 

2 

1 . 78E-0 A 

-117.79 

7.06E-05 

-9 9. 5 A 

7.36E-05 

125. 03 

3 

2.6AE-0A 

33. 1A 





N 

1 

M « 

7 

M « 

8 

M » 

9 

1 . lfcE-G3 

A. 5A 

1.23E-03 

7.90 

l .22E-03 

10.7b 

2 

1.69E-C3 

1A9.72 





N 

l 

M * 

10 

M * 

1 1 



9. 13E-C A 

13.37 

3.26E-03 

- 166.95 
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DISTORTION INPUT FOR CASE 3 
K « 2 


ANGLE 

= -10. 

0000 -9. 

0000 -6. 

0000 -4 . 

0000 -3.C000 

SPAN 

. 3500 

-0.0000 

-0 . 0000 

-0 .0000 

-O.OOOC 

-0.0000 

.6800 

-0.0000 

-0.0000 

-0.0000 

-C.0000 

- 0 . ocoo 

. 7200 

0.0000 

0.0000 

.0009 

.0028 

. 0041 

.7400 

0.0000 

o.ooco 

.0021 

.0066 

.0098 

. 7600 

c.ccoo 

0 .3 00 . 

.0033 

.0120 

.0180 

.7700 

0.0000 

o.ooco 

.00 46 

.0148 

. 0223 

.7800 

0.0000 

O.OOCO' 

.0052 

.017 1 

.02 59 

.790 0 

0.0000 

O.OOCO 

.0056 

.013 5 

.0282 

. 8000 

0.0000 

o.ooco 

• 005b 

.0139 

. 0289 

.3100 

0.0000 

o.ooco 

.0053 

.018 1 

.0278 

.8200 

o.cooo 

0.0000 

.0047 

.0162 

.0252 

. 3300 

0.0000 

0.0000 

.0039 

.0137 

.0214 

. 8400 

G.OCOO 

o.ocoo 

.0030 

.3109 

.0171 

. 3600 

C.0000 

•o.ooco 

.0015 

.0057 

. 00 90 

. 3800 

0.0000 

0.0000 

. 0006 

. 0 C2 3 

. 0037 

. 9200 

-o.ocoo 

-o.ocoo 

-0 .0000 

-O.OCOO 

-0.0000 

. 0000 

- 0 . ocoo 

-o.ooco 

-0.0000 

-C.000 0 

-0.0000 

ANGL E 
SPAN 

* -2. 

0000 -1.1 

0000 0. 

0000 1 .1 

OOOO 2.0000 

. 3500 

-0.0000 

« -0.0000 

-0.0000 

-0.0000 

-0.0000 

.6800 

-0.0000 

-0.0000 

-0.0000 

-o.ocoo 

-0.0000 

.7200 

.0054 

.0064 

.0068 

.0064 

.0054 

.7400 

.0130 

.0153 

.0162 

.015 3 

.0130 

.7600 

.0241 

.0286 

.0303 

.023 6 

.0241 

.7700 

.0295 

■ .0356 

.0377 

. 035 6 

. 0295 

. 7800 

.0348 

.04 16 

.0441 

.0416 

.0348 

. 7900 

.0381 

.0456 

.0485 

.045 6 

. 03 81 

. 8000 

.0392 

.0470 

.0500 

.0470 

.0392 

.8100 

.0379 

.0456 

.0435 

. 045 6 

.0379 

. 3200 

.0344 

.0414 

.0441 

.041 4 

.0344 

.3300 

.0293 

.0354 

.0377 

.035 4 

.0293 

. 8400 

.0235 

.0284 

.0303 

. 023 4 

. 0235 

.3600 

.0125 

.0152 

.0162 

.0152 

.0125 

. 3800 

.0052 

.0063 

.00o3 

.OOo 3 

. 0052 

.9200 

-0 .0000 

-O.OOOC 

-0 .0000 

-C. 000 0 

-0.0000 

. OGOO 

-o.ocoo 

-0.0000 

-0 .0000 

-C. 000 0 

-o.ocoo 

ANGLE 

= 3. 

0000 4. OCOO 6.0000 9.000C 10.000C 

SPAN 

. 3500 

-0.0000 

-O.OOCO 

-0.0000 

-O.OCOO 

-0.0000 

. beoo 

-c.ccoo 

-0.0000 

-0.0 000 

-C.0000 

-o.ocoo 

. 720 0 

.004 1 

. 0C23 

.0009 

C. OCOC 

o.occo 

. 7 40 0 

.0093 

.0066 

. 002 1 

C . ocoo 

0 . 0v.cc 

. 7600 

.0130 

. 0 1 2 C 

.0033 

0.000 0 

O.OOOC 

. 7700 

. C 2 2 3 

.0143 

.0046 

C. 000 0 

o.ocoo 

. 7 cO C 

.0259 

.0 171 

.0052 

C. oooc 

o.ooco 

. 7900 

.0232 

.0135 

.0056 

C. 0 00 0 

0.0000 
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. 8COO 

.0289 

.0189 

.8100 

.0278 

.0181 

. 3200 

.0252 

.0162 

.8300 

.0214 

.0137 

. 3400 

.0171 

.0109 

. 8600 

.0090 

.0057 

.8800 

.0037 

.0023 

.0200 

-o.ocoo 

-0.000 0 

1.0000 

-o.ccoo 

-0.0000 


.00 56 

0.0000 

• 0.0000 

.0053 

C.0000 

0.0000 

.0047 

0.0000 

o.ocoo 

.0039 

. 0.0000 

0.0000 

.0030 

0 . 0 00 0 

o.ccoo 

.0015 

0.0000 

o.ocoo 

.0006 

0.0000 

0. 0000 

-0 .0000 

-0.0000 

-o.ccoo 

-0.0000 

-o.ocoo 

-o.ocoo 



subroutine bcdaa 


INPUT FOR CASE 3 


ARRAY ARH15C 

INDEX VALUE INDEX VALUE INDEX VALUE INDEX VALUE 


1 

-0.0000 

II 

-0. 0000 

2 

-0.0000 

12 

-0. 0000 

3 

.3500 

13 

- 0 . 00 DO 

4 

-1.0000 

14 

l. 0000 

5 

-o.cooo 

15 

0. 0000 

6 

0.0000 

16 

3.000Q 

7 

.7500 

17 

0.0000 

e 

O.OOOD 

19 

-0.0000 

3 

O.COOO 

13 

-0.0000 

10 

15.0000 

20 

-0. 0000 


21 

-0.0000 

31 

-0.0000 

22 

4.0000 

32 

-0. 00)0 

23 

52. CO DO 

33 

-0. 0000 

24 

1.0000 

34 

-0.0000 

25 

3. CO 00 

35 

-0. cooo 

26 

-O.COOO 

36 

-C. 0000 

27 

-0. 00 00 

37 

-0.00)0 

23 

-0. CO 00 

38 

-0. 0000 

29 

-0.0000 

33 

-C. 0000 

30 

-0.0000 

4C 

-0.0000 


ARRAY AR 


K - 2 


J * 
I 
1 

i 

2 

3 

4 

5 

6 

17.00000 

-0.00000 

-0.00000 

-0.00000 

-o.ocooo 

-0.00000 

2 

.67500 

.10000 

-0.00000 

-0.00000 

-o.ocooo 

6.23000 

3 

.35000 

-0.00000 

-0.00000 

-0.00000 

-C .00000 

-0.00000 

4 

.68000 

-0.0000 D 

-0.00000 

-0.00000 

-o.ocooo 

-0.00000 

5 

.72000 

-0.00000 

-0.00000 

-o.ocooo 

-c. ooooc 

-0.00000 

6 

.74C00 

-0.00000 

-0.00000 

-0.00000 

-c . ococo 

-0.00000 

7 

.76000 

-0.00000 

-0.00000 

-0.00000 

-0.00000 

-0.000)0 

3 

.77000 

-0.00000 

-O.DOOOO 

-0.00000 

-o.ocooo 

-o.ocooo 

9 

.78000 

-0.00000 

-0.00000 

-o.ocooo 

-o. ococo 

-0.00000 

10 

.73000 

-0.00000 

-O.DOOOO 

-o.ocooo 

-c. ooooc 

-0.00000 

11 

.80000 

-0.00000 

-0.00000 

-0.00000 

-0 .00000 

-o.ocooo 

12 

.81000 

-0.00000 

-0.00000 

-0.00000 

-o.ooccc 

-0.00000 

13 

.82000 

-0.00000 

-0.00000 

-0.00000 

-c.ococc 

- 0 . ooooc 

14 

. 83C00 

-0.00000 

-0.00000 

-o.ocooo 

-o.ococc 

-0.00000 

15 

.84000 

-0.00000 

-0.00000 

-0.00000 

-o.ocooo 

-o.coooo 

16 

.86000 

-0.00000 

-0.00000 

-0.00000 

-o.occoo 

-o.ocooo 

17 

. 88C00 

-o.oooco 

-0.00000 

-0.00000 

-o.occco 

-o.ocooo 

ia 

.32000 

-0.00000 

-0.00000 

-0.00000 

-o.ococc 

-o.occoc 

10 

l.OCOOO 

-0.00000 

-0.00000 

-0.00000 

-c. ooooc 

-o.ocooo 

j * 
i 
l 

7 

8 

3 

10 

11 

12 

17.00000 

17.00C0D 

-0.00000 

0.00000 

-o.ocooo 

17.00000 

2 

.73000 

.62000 

. 50000 

-0.00000 

-o.ooccc 

.10000 

3 

. 56C0C 

. 5 CCOO 

-0.00000 

-0 .0 0000 

-: . occcc 

0. COO DO 

-♦ 

.73200 

. 11400 

DODO) 

- ) . 0 ; 3 3 D 

— 

D.OOODD 

b 

.75400 

. 3 £ 300 


— 0 .0 cooo 

- j . 0 OC 0 D 

. o: i ii 

6 

.76400 

.63500 

-0.00000 

-0.00000 

-: .ooooc 

. 00*23 

7 

.77500 

.64230 

-o.oooco 

-0.00000 

— 0 . OGCo>, 

.00730 



a 

.78000 

.64500 

-0.00000 

-0.00000 

— 0. OCOOO 

.00975 

9 

.78500 

.64600 

-0.00000 

-0.00000 

-C .00000 

.0U3o 

10 

. 73C00 

.65200 

-0.00000 

-0.00000 

-0. OCOOO 

.01240 

u 

.73500 

.65600 

-0.00000 

-0.00000 

-0.00000 

.0 1272 

12 

.80000 

.65303 

-0.30000 

-0. OCOOO 

-0. OCOOO 

.0 122o 

13 

’ . 8C600 

.66300 

-0.00000 

-0. OCOOO 

— 0 . 0 C 0 Cg 

.0 1 109 

14 

. 81 LOO 

.66600 

-0.00000 

-0. OCOOO 

- 0 . 0 CO 00 

.00643 

15 

.81600 

. 6 7CC0 

-0.00000 

-0.00000 

-0 . oocoo 

.00754 

16 

.82700 

.67700 

-0.30000 

— 0.00003 

-o.ococc 

.00399 

17 

.83700 

.68400 

-o.oooco 

- 0 . occoo 

-O.OOOCO 

.00 1 o5 

18 

.85800 

.63730 

-0.00000 

-0. OCOOO 

— c . ococc 

0. OCOOO 

13 

.30000 

.72500 

-0.00000 

-0.00003 

-o.ococc 

0.00030 

J = 
1 
1 

13 

14 

. 15 

16 

17 

18 

17.00000 

17. OOCOO 

17.00000 

17.00000 

17.00000 

17.00030 

2 

0.00000 

0. OOCOO 

0.00000 

0. OCOOO 

O.OCOCC 

0 . cccoo 

3 

0.00000 

0.30000 

0.00000 

0.00000 

3 .OOCOO 

3 .00030 

4 

o.oococ 

0. 00000 

0.30000 

0.00000 

O.OOCOC 

0.00033 

5 

.00000 

.00130 

.00000 

.00173 

. OOOOC 

.00177 

6 

.00000 

.00427 

.00000 . 

.00424 

.OOOCC 

.00423 

7 

.00000 

.00787 

.00000 

.00733 

.OCOOO 

. OG 77a 

a 

.00000 

.00372 

.00000 

.00366 

. OCOCO 

.00957 

3 

.00000 

.01132 

.00000 

.0 1125 

•OCOOO 

.01115 

10 

.OCGOG 

.01236 

.00000 

.0 1223 

.OOOCC 

.01213 

11 

.OCOOO 

.01267 

.00000 

.0 1260 

.oooco 

. 0 1 2 50 

12 

.00000 

.01221 

.00000 

.0 1214 

.OOOCC 

.01204 

13 

.00000 

.01105 

.00000 

.0 1039 

.oooco 

.0 1090 

14 

.OCOOO 

.00340 

.GOOCO 

.00935 

. OCOCC 

. C 0627 

15 

.00000 

.00751 

.00000 

.00747 

.OOOCC 

.00741 

16 

.00000 

.00337 

.00000 

.00395 

.OCOOO 

.00392 

1 7 

.00000 

.00164 

.00000 

.00163 

.OCOOO 

.00 1 o2 

18 

0.00000 

0.00000 

0.00000 

0. OCOOO 

C .OOOCC 

0. C'OCOO 

13 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

J => 

I 

1 

13 

20 

21 

22 

23 

24 

17.00000 

17.00000 

17.00000 

17.00000 

17. OCOCC 

17.00000 

2 

0.00000 

0.30000 

C. 00000 

3.0 0000 

C. OCGOC 

0 . C CO'OO 

3 

0.00000 

0.00000 

0.00000 

0.00000 

: .ocooc 

0. OCOOO 

4 

0.00000 

0.00000 

0.00000 

O.OOOCO 

O.OCOCC 

0.00030 

5 

.oocoo 

.00175 

.00000 

.00173 

. ococc 

.00170 

6 

.occoo 

.00416 

.00000 

.004 10 

.OCOOO 

.0 0403 

7 

.00000 

.00767 

. 00000 

.00757 

.00000 

.00745 

9 

.00000 

.00647 

.00000 

.00934 

. OCOOO 

. C 09 19 

3 

.oocoo 

.01103 

. ~\jO 3 C 0 

.0 1039 

.OCOOO 

.01072 

10 

.oococ 

.01205 

.00000 

.0 1 139 

. OCOCC 

.C 1 171 

1 l 

.00000 

.01236 

.00000 

.01220 

. OOOCO 

.0 1201 

12 

.00000 

.01131 

.00000 

.0 1 176 

. OCOOO 

.01153 

13 

.oocoo 

.01073 

.00000 

.0 1065 

. OCOOC 

.C 1049 

14 

.cccoo 

.0031 3 

.00000 

.00906 

» OCO OC 

.00392 

* C 

.occoo 

.00733 

.3 00 CO 

. 3073-. 

. 0 C * j c c 

. CC713 

i - 

• GOC'ju 

. 000 3 3 

.30303 

.0 3333 

•OCOCC 

• 0 0 3 73 

17 

.00000 

.00160 

.00000 

.00138 

. oooco 

.00 1 5o 

1 3 

o. oocoo 

0.00000 

C. 00000 

0.0 GOOD 

G. OCOOO 

0.00000 

13 

o.occco 

0. OOCOO 

0.00000 

3.000 33 

o.ococc 

0. OCOOO 
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26 


27 


23 


29 


30 


J 


25 


I 


1 

17.00000 

17.00000 

17.00000 

17.00000 

17.00000 

17.00000 

2 

3.00000 

0.00003 

op n ^ 

0.00000 

0.00000 

0.00033 

3 

o.oocoo 

0.00000 

<4 4 « A ^ « 

0.00000 

0.00000 

0.00003 

4 

o.oocoo 

o.oocoo 

r m, ^ * 

UCu SJ w 

0 . ocooo 

C • 0 CO CO 

0.00030 

5 

.00000 

.00167 

• uG«/ GO 

.00163 

.00000 

.00159 

6 

.00000 

.00396 

« \J \J Sj -J 

.00337 

.00003 

.00373 

7 

.00000 

.00731 

.00000 

.0 3710 

.000C3 

.00699 

3 

.oocoo 

.00903 

.00000 

.00334 

.0C0C3 

.0 03 63 

9 

.00000 

.01052 

.00000 

.01031 

. ococc 

.01007 

10 

.00000 

.01150 

.00000 

.0 1 126 

. 00000 

.01100 

11 

.00000 

.01130 

.00000 

.01156 

.00000 

.01130 

12 

.00000 

.01138 

. .00000 

.0 1115 

.ococo 

.01090 

13 

.00000 

.01031 

.00000 

.0 1010 

.00000 

.00933 

14 

.00000 

. 003 7 7 

.00000 

.00360 

. ocooo 

.00341 

15 

.00000 

.00701 

.00000 

.0C633 

. ooooc 

.00673 

16 

.ocooo 

.00371 

.00000 

.0 0364 

. ocooo 

.00357 

17 

.00000 

.00153 

.00000 

.00151 

. ooocc 

. C 0 1 >»7 

18 

o.oocoo 

0.00000 

0.00003 

0.00000 

c . oocoo 

0 .00000 

19 

o.oocoo 

O.OOCOO 

0.00000 

0 . ocooo 

0 . ooocc 

0.00000 

J • 
I 
l 

31 

32 

33 

34 

35 

36 

17.00000 

17.00000 

17.00000 

17.00000 

17. OCOCC 

17.00000 

2 

0 . ocooo 

0.00000 

0.00000 

0.00000 

O.OOOCO 

0.00000 

3 

0.00000 

o.oocoo 

0.00300 

0. OCOOO 

0 . ococc 

0.00000 

4 

0.00000 

0.00000 

0.00000 

0 . ocooo 

0 . ococc 

o.oocoo 

5 

.ocooo 

•OC 1 55 

.00000 

.00150 

. ccccc 

.00145 

6 

.00000 

.00363 

.00000 

.00357 

.00000 

.00346 

7 

.00000 

.00631 

.00000 

.00661 

.ocooo 

.00641 

3 

.00000 

.00841 

.00000 

.00817 

.00000 

.00792 

9 

.oocoo 

.00981 

.00000 

.00954 

•ooooc 

.00924 

10 

.00000 

.01073 

.00000 

.0 1043 

.00000 

.01011 

11 

.oocoo 

.01102 

.00000 

.01071 

. 00000 

.01039 

12 

.oocoo 

. 0 1C 63 

.00000 

.0 1034 

. oocoo 

.0 1003 

13 

.ocooo 

.00963 

.00000 

.00937 

• -j C 0 C 0 

. 00910 

14 

.00000 

.00820 

.00000 

.00798 

. 00000 

.00775 

15 

.oocoo 

.00656 

.00000 

. 0 C639 

. ococo 

.00621 

lb 

.oocoo 

.00343 

.00000 

.00339 

. ococo 

.00330 

17 

.00000 

.00144 

.00000 

.00140 

.00000 

.0013b 

18 

o.oocoo 

0.00000 

0.00000 

0.00000 

0 . ocooo 

0.00030 

19 

o.occco 

O.OOCOO 

0.00000 

0.00000 

0 . ococo 

0.000 30 

J * 
I 
l 

37 

38 

39 

40 

41 

42 

17.000C0 

17.00000 

17.00000 

17.00000 

17.00000 

17.00000 

2 

o.oocoo 

0.00000 

3.00000 

0.00000 

O.OOOCO 

0.00000 

3 

0.00000 

O.OOCOO 

0.00000 

0 . ocooo 

O.OOOCO 

0 . GCC^G 

4 

0 . ocooo 

O.OOCOO 

0.00000 

0.00000 

O.OOOCO 

0.00000 

5 

.ccooc 

.00140 

.00000 

.00135 

.OOGCO 

.00129 

6 

-> r- •» A .* 

.'Cl:- 


. ^ “ 1 1 i 

T r ; ; 

.OOiCi 

7 

i V W C W - 

.OifclO 

« JO Vv V 

• Z 0 5 f5 

.30.:- 

. 0 C 5 ?3 

3 

.oocoo 

•007o5 

.00000 

.00737 

. OOQCG 

.00709 

9 

.COCOG 

.00894 

.00000 

.00362 

. ccccc 

.00329 

10 

.occoo 

.00976 

.00300 

.00943 

. OCOCC 

. C09C7 
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1 1 

.00000 

.01005 

.00000 

.00970 

.00000 

.00934 

12 

.00000 

.00971 

.00000 

.00937 

. OOOOC 

.00902 

13 

.00000 

.00851 

.00000 

.00351 

. OCCCC 

.00319 

14 

.00000 

.00751 

. 30000 

.00725 

. OOOOO 

.00699 

15 

.00000 

.00601 

.00000 

.00581 

. ocooo 

.00 560 

16 

.00000 

.00319 

.00000 

.00309 

.00000 

.0 C29d 

17 

.oocoo 

.00132 

.00000 

.00123 

. 0 COCO 

.00124 

l 3 

c.oocoo 

0 . oocoo 

G. OOOOO 

0.00000 

c . ooocc 

0. OOOOO 

19 

3. OOCOO 

0 . oocoo 

0.00000 

0.00000 

O.OCOOO 

0.00030 

J * 
I 
1 

43 

44 

45 

46 

47 

43 

17.00000 

17.00000 

17.00000 

17.00000 

17.00000 

17.00000 

2 

0.00000 

0.00000 

0.00000 

O.OCOOO 

0.00000 

0.00000 

3 

0.00000 

0.00000 

G. OOOOO 

0.00000 

0. OOOOO 

0. CCOOO 

4 

0.00000 

0.00000 

0.00000 

3.00000 

O.OCOOO 

0.00003 

5 

.GOCOO 

.00124 

' .00000 

.00113 

. OOOOC 

.00112 

6 

.oocoo 

.3C295 

.00000 

.00232 

. OOOCC 

. 002 63 

7 

.00000 

.00549 

.00000 

.00524 

•OOOOO 

.00499 

a 

.oocoo 

.00679 

.00000 

.00649 

. OCCCG 

.00619 

9 

.00000 

.00795 

.00000 

.00760 

.oooco 

.00724 

10 

.00000 

.00871 

.00000 

.00333 

.oocoo 

.00795 

1 1 

.00000 

.00896 

.00000 

.00353 

. OCCCC 

.00819 

12 

.ccooo 

.00867 

.00000 

.00330 

. OCCCC 

.00792 

1 3 

.00000 

.00737 

.00000 

.00754 

. OCOCC 

. CC 720 

14 

.occoo 

.00672 

.00000 

.00644 

. OCOCC 

.00615 

15 

.00000 

.00538 

.00000 

.00516 

. OCOCC 

.00494 

16 

.00000 

.00237 

.00000 

.00275 

.00000 

.00263 

17 

.ooooO 

.00119 

.00000 

.00114 

. OOOCC 

.00109 

18 

Q. OOCOO 

O.OCOOO 

0.00000 

0.00000 

C. OOOCC 

0.00030 

19 

0 . oocoo 

0 .OOCOO 

0.00000 

■3.0 0000 

c .ocooo 

0 .00000 

J = 
I 
1 

49 

50 

51 

52 

53 

54 

17.00000 

17.00000 

17.00000 

17.00000 

17 . OCOCO 

17.00030 

2 

0.00000 

0 .00000 

0.00000 

0.00003 

c . ocooo 

0.00000 

3 

0.00000 

0.00000 

0.00000 

0.00000 

•: . OOOOC 

0. OOOOO 

4 

0.00000 

0. OOCOO 

0.00000 

0.00000 

C. OCOCC 

0.00000 

5 

.00000 

.00106 

. 30000 

.0 0100 

. ocooc 

.00094 

6 

.00000 

.00254 

.OOOOO 

.00240 

. oooco 

.00226 

7 

.00000 

.00474 

.00000 

.0 0449 

.OOOOC 

.00423 

3 

.00000 

.00533 

.00000 

.00557 

.oocoo 

.0052o 

9 

.oocoo 

.00689 

•OOOOO 

.00653 

. OCOCC 

.00617 

10 

.00000 

.00756 

.00000 

.00717 

. CC-0 00 

. 0 Go73 

11 

.occoc 

.00779 

.00000 

.00739 

.OCOOC 

.00733 

12 

.oocoo 

.00755 

.00000 

.00716 

. OCOCC 

. OOo 73 

13 

.00000 

. OC 6 36 

.00000 

. 3 Oo 52 

. ocooo 

. OCol 3 

1 4 

.occoo 

.00537 

.00000 

.00553 

.OCOOC 

.00529 

15 

.00000 

. 00471 

.00000 

.00443 

. OCOCC 

.00425 

16 

. ccooo 

.00251 ' 

.00000 

.00239 

. OCOOC 

.00227 

17 

.cccoo 

.00105 

.00000 

.O.CIOO 

. OCOCC- 

.00095 

13 

0 . 0 G 0 0 0 

0 . 0 u C 0 0 

v . 0 v 3 0 0 

G . G 0 j 3 3 

. 3 C Vrf w C 

■3 .C 30 30 

19 

0.00000 

0.00000 

0.00000 

3.00000 

C • C CO Cc 

0. OOCOO 

J = 

55 

56 

57 

53 

59 

60 


1 
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l 

17.00000 

17.00000 

17.00000 

17.00000 

17.0000C 

17.00000 

2 

0.00000 

0.00000 

O.OOOCO 

0.0 0000 

O.OOOCO 

0 • C G 000 

3 

o.occoo 

O.OOOGO 

0.00000 

O.OCOOO 

c. ccocc 

0 .00000 

4 

o.oocoo 

0.00000 

0.00000 

o.ocooo 

O.OOOCO 

o.ocooo 

5 

.oocoo 

• OOC 33 

.oooco 

.0 00 32 

. 00000 

.00077 

6 

.00000 

.00212 

.00000 

.00199 

. OOOCO 

. 0 C I 55 

7 

.00000 

.00393 

.00000 

.00373 

. 00000 

.00346 

8 

.occoo 

.00495 

.00000 

.00464 

.oooco 

.00434 

9 

.oocoo 

.00531 

.00000 

.00545 

. ccoco 

.CO 5 10 

10 

.00000 

.00639 

.00000 

.00600 

. ooooc 

•005o2 

1 L 

.oocoo 

• 00 660 

.00000 

.00620 

. ocooo 

.00531 

12 

.00000 

.0060 

.00000 

.0 0602 

. ococc 

• CO 5o5 

13 

.oocoo 

.00533 

.00000 

.00549 

. ocooo 

• OC 5 16 

14 

.oocoo 

. 005C0 

.00000 

.00471 

. ococc 

. C 0442 

15 

.00000 

.00402 

.00000 

.00379 

. oooco 

.00356 

16 

.00000 

. 00215 

.00000 

.00203 

-ocooo 

.00192 

17 

.oocoo 

.00090 

.00000 

.00035 

.00000 

.ocoao 

13 

0.00000 

0.00000 

0.00000 

0.0 0000 

u • ooooc 

0 . ocooo 

17 

o.occoo 

0.00000 

0.00000 

0.00000 

C .00000 

0.00000 

J * 
I 
1 

61 

62 

63. 




17.00000 

17.00000 

17.00000 




2 

0.00000 

0.00003 

0.00000 




3 

0.00000 

0.00000 

0.00000 




4 

0.00000 

o.occoo 

0.00000 




5 

.CGC00 

.00071 

.00000 




6 

.00000 

.00172 

.00000 




7 

.00000 

.00324 

.00000 




8 

.oocoo 

.00404 

.00000 




9 

.oocoo 

.00476 

• .00000 




10 

.00000 

.00524 

.00000 




11 

.00000 

.00543 

.00000 




12 

.oocoo 

.00528 

.00000 




13 

.oocoo 

.00433 

.00000 




14 

.00000 

.00414 

.00000 




1 5 

.oocoo 

.00334 

. o GO 0 0 




16 

.00000 

.00130 

.00000 




17 

.oocoo 

.00075 

.00000 




18 

0.00000 

0.00000 

0.00000 




19 

0.00000 

0.00000 

0.00000 
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MODAL AMPLITUDES * ( MOOULUS . PH ASE ) 


PHASE.LT. 180 DEG AND PHAS E .GT.- 130 DEG 


N 

1 

M • 

-11 

M * 

-10 

M * 

-9 

7. 36E-04 

144.26 

3.55E-04 

-3 3. 02 

3.14E-04 

149. o 9 

N 

1 

M * 

-3 

M * 

-7 

M = 

-6 

3. 04E-04 

-27.61 

3.05E-04 

15 5.06 

3.1 IE-04 

-22.23 

2 



7.92E-04 

152. 52 

1.9C6-04 

-25. 14 

N 

l 

M * 

-5 

M « 

-4 

M * 

-3 

3. 19E-04 

160. 35 

3.26E-04 

-17.03 

3.29E-04 

165. 55 

2 

9. 17E-05 

156. 4C 

1.94E-05 

-3 C. 20 

4.61E-05 

- 1 0. 64 

3 



3.47E-04 

160.62 

2.33E-04 

- 16. 31 

N 

1 

M * 

-2 

M « 

-1 

M * 

0 

3.24E-04 

-11.90 

3.12E-04 

170.62 

3.03E-04 

-6. 91 

2 

1 .07E-C4 

169. 25 

1.58E-04 

-8.79 

l .79E-04 

173. 55 

3 

l . 39E-04 

165.76 

1.65E-04 

-11.67 

1.57E-0A 

-9.06 


M » 

1 

H - 

2 

M * 

3 

N 


« 





l 

3 . 23E-04 

-4.49 

3.47E-04 

- 2. 12 

3.62E-04 

. 17 

2 

1.63E-04 

176.04 

1.15E-04 

178. 70 

5.38E-05 

-177. 91 

3 

1 . olE-04 

173.58 

1.78E-04 

176.21 

2.04E-04 

173.73 

N 

1 

N * 

4 

M * 

5 

M * 

6 

3 • 66E-04 

2. 38 

3.62E-04 

4. 49 

3 . 5 IE- 04 

o. 43 

2 

9. 53E-06 

-3.67 

6.96E-05 

3. 20 

1 .16E-0A 

6. 03 

3 

2 . <t3E-04 

-173. 74 





N 

l 

h * 

7 

M * 

3 

M = 

9’ 

3.32E-04 

8. 30 

3.04E-04 

9.92 

2.53E-04 

n. 23 

2 

5.06E-C6 

116. 58 





N 

M * 

10 

M * 

1 1 



1 

l .67E-04 

12.29 

3.53E-04 

-167. 19 
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SUBROUTINE 8C0AA 


INPUT FOR CASE 4 


ARRAY ARMISC 


l NOE X 

value 

INDEX 

V ALUE 

INDEX 

value 

INDEX 

VALUE 

1 

-0.0000 

11 

-0. 0000 

21 

-0. 0030 

31 

-G. 0000 

■> 

w 

-0.0000 

12 

-C. 0000 

22 

1. COOO 

32 

-0. 0000 

3 

. 3500 

13 

■ -0.0000 

23 

.9500 

33' 

— w« ^000 

4 

-1.0000 

14 

1. COOO 

2 4 

. 30 00 

34 

-0. 00 30 

5 

-c.cooo 

15 

0. 0000 

25 

3. COOO 

35 

-0. 0000 

6 

0.0000 

16 

0 . 0000 ■ 

26 

-0. 00 00 

3b 

-0. 0030 

7 

.7500 

17 

0. 0000 

27 

-0. COOO 

37 

-0. 0000 

8 

0.0000 

18 

-0.0000 

28 

-0.C003 

38 

1. GOOO 

9 

0.0000 

19 

-0. 0000 

29 

-0.0300 

39 

-0. 0000 

10 

15.0000 

20 

-0.0000 

30 

-o.cooo 

40 

-0. 0030 


ARRAY AR 







K * 2 

J = 
I 
1 

l 

2 

3 

4 

5 

6 

2.00000 

2.00000 

-0.00000 

-0.00000 

- 0 . ooocc 

Q.CCOOO 

2 

.67500 

. 15C00 

-C. 0000 0 

-0.0 COOO 

- 0 . ooocc 

5.23000 

3 

.35000 * 

.20000 

-0.00000 

-0.00000 

-C. 00000 

-0.00000 

4 

1.00000 

. lOCOO 

-0.00000 

-o.ocooo 

-o.ocooo 

-0. COO 30 

J = 
I 
l 

7 

8 

9 

10 

11 


2.00000 

2.00000 

0.00000 

2.00000 

2.00000 


2 

.73000 

.61000 

.50000 

.0 6500 

. 0 60 OC 


3 

.56000 

.50000 

-0.00000 

.1 COOO 

. 1C00C 


4 

.90000 

. .72500 

-o.oooco 

.03000 

. 020CO 




NODAL AMPLITUDES * ( MOOULUS /P HA SE > 

PHASE. LT. 130 DEG AND PH A S E. GT . -13 0 DEG 


N 

1 

M ■ 

-11 

M « 

-10 

M » 

-9 

3.50E-05 

1 C 6 . 57 

1.72E-C5 

-03.38 

1.63E-C5 

116.44 

N 

1 

M * 

-8 

M * 

-7 

M * 

-6 

1.63E-C5 

-03. 16 

.1 .73E-C5 

117. 54 

« 

<D 

Us 

m 

1 

O 

VJ* 

-61.56 

2 



4 • 1'9E — G 5 

116.32 

1. 1 5 E -05 

- o3 . 9 1 

N 

1 

M - 

-5 

M * 

-4 

M » 

-3 

2.06E-05 

119.48 

2.28E-C5 

-59.38 

2. 51E-G5 

121 .35 

2 

6.53E-G6 

134. 24 

2 . 60 E-G 6 

-101.7o 

3. 15E-06 

-23.98 

3 



2.52E-05 

115.02 

1. 916-05 

-66 .24 

N 

l 

M - 

-2 

M « 

- 1 

M * 

0 

2.73E-C5 

-56.86 

2 .95E-G5 

124. 5i 

3.23E-05 

-54.65 

2 

7.97E-06 

135. 30 

1 .33E-05 

-48.10 . 

1. 73E-05 

132.62 

3 

1 . 74E -c 5 

113.2 l 

1 .72E-05 

- 66 . 57 

1. 3oE -05 

- 65 . 4 3 

N 

1 

M » 

• 

1 

H » 

2 

M • 

3 

3.98E-05 

-52.08 

4.98E-C5 

-49.99 

6. 1 3 E -05 

-47.73 

2 

1.31E-G5 

136. 12 

1.49E-G5 

144. 2h 

9. IDE-Co 

167.33 

3 

2. 17E-05 

116.75 

2.70E-05 

1 19. -»2 

3. 5*E-05 

124.34 

N 

1 

M « 

4 

H « 

5 

M » 

6 

7.59E-05 

-45.34 

9.34E-05 

-42.80 

1. 16E-Q4 

-40.07 

2 

7.79E-0o 

-112.23 

1.896-05 

-68.18 

3. HE-05 

- 48 . o7 

3 

4.83E-G5 

132.98 





N 

1 

M • 

7 

M « 

3 

M * 

9 

1.46E-G4 

-37.08 

1.83E-G4 

-33.71 

2.24E-04 

-29.53 

2 

8.91E-C5 

118.86 





N 

1 

ri « 

10 

H « 

11 



2 . 16S-G4 

-22.38 . 

3 .99E-04 

151.09 
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3.4 Primary Subroutine BBCAA 

Case 

1 Base case: 

Eddy with axial eddy velocity component only 

2 Base case with: 

ARMISC(25) = 4. indicates that Filotas lift response 

function is used 

3 Base case with: 

ARMISC(38) = 1. indicates that noncompact source theory is 

used 

4 Base case with: 

ARMISC(34) = .04 indicates short length eddy 

5 Base case with: 

ARMISC(34) = 10. indicates long length eddy 

6 Base case with angular rather than axial eddy velocity 

component: 

ARMISC(30) = .0 = axial eddy velocity 

AEMISC(31) = .05 = angular eddy velocity component 

ARMISC(34) = .0 = eddy length for axial eddy velocity 

component 

ARMISC(35) = .4 = eddy length for angular eddy velocity 

component 
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Case 


7 Base case with both velocity components: 

ARMISC(31) = .05 = angular eddy velocity component 

ARMISC(35) = 0.4 = eddy length for angular eddy velocity 

component 

8 Base case with: 

ARMISC(26) = 1. indicates start of accumulation of mode 

amplitudes 

ARMISC(29) = 3.1416 = angular location of eddy center 

9 Base case with: 

ARMISC(26) = 3. = end of accumulation of mode amplitudes 

10 Base case with: 

ARMISC(37) = .8 = time delay resulting from the axial 

position of the eddy center at the 
temporal origin 

11 Base case with: 

ARMISC (34) = 10. = long length eddy 

AR(2,2,2) = .1 = average rotor chord length 

AR(I,10,2) = .0 = maximum blade camber of rotor 

AR(I,11,2) = .0 = rotor blade angle of attack 

The data of this case represents the same conditions as case 

3 of primary subroutine BCDAA. 
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3.U.1 Card Image of Main Driver Input 


88CAA 

.0 

.3 

3 . 

.34 
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2 . 

2 . 

.675 
.365 
.35 
. 1 
1 . 

.03 

.3 

.3 

4 . 

.04 

0 

2 . 

.675 

.35 

1 . 

.0 

.0 

3 . 

.04 

0 

2 . 

2 . 

.675 

.065 

.35 

.1 

1. 

.03 

.0 

.0 

3 . 

.04 

0 

2 . 

2 . 

.675 
.365 
.35 
. 1 
l . 


15 . 


.4 

1 0 

2 . 

2 . 

.15 

*36 

.2 

.1 

.1 

.32 

15 . 


.4 

1 0 

2 . 

.15 

.? 

.1 

15 . 


. 4 

1 0 

2 . 

2 . 

.15 

.06 

.2 

.1 

.1 

.02 

15 . 


.04 

1 0 

2 . 

2 . 

.15 

.36 

y 

m — 

.1 

.1 


.35 


.35 


.35 


.35 


-l. 

.8 

1 . 


- 1 . 

.8 

1 . 


- 1 . 


.8 

1 . 


- 1 . 

.8 

1 . 


.0 


.0 .75 

1 . .3 

.05 .3 


.0 

6.23 


.3 


2 . 2 . • 0 

.73 .61 .5 

.56 .5 

.9 .725 

.0 .75 

1 . .0 

.35 .3 


.0 

6.28 


.0 

.3 

6.28 


.0 


2 . 2 . .0 

.73 .61 .5 

.56 .5 

.9 .725 

.0 . 75 

1 . .3 

.05 .3 

1 . 

2 . 2 . .0 

.73 .61 .5 

.56 .5 

.9 .725 

.0 .75 
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.03 .02 


.0 

.0 

3 . 

.04 

2 . 

2 . 

.675 

.065 

.35 

.1 

1 . 

.03 


15 . 


10 . 

1 0 

2 . 

2 . 

.15 

.06 

.2 

.1 

.1 

.02 


.0 

.0 

3 . 

• 04 

2 . 

2 . 

.675 

.065 

.35 

.1 

1 . 

.03 


15 . 


.0 

1 0 

2 . 

2 . 

.1 5 
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.1 
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.02 


.0 15 . 

.0 

3 . 

.04 .4 

0 1 0 

2 . 2 . 

2 . 2 . 

.675 .15 

.065 .06 

.35 .2 

.1 .1 

1 . .1 

.03 .02 


.0 15 . 

.0 

3 . 1 . 

.04 . 4 

0 1 0 

2 . 2 . 

2 . 2 . 

.675 .15 


.35 - 1 . 


.8 

1 . 


.35 - 1 . 


. 4 


.8 

1 . 


.35 -l. 


. 4 


.8 

1 . 


.35 -l. 


. 8 

1 . 


.0 


.0 

1 . 

.05 


.75 

.0 

.0 


.0 

6.28 
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.73 

.56 

.9 

.0 

1 . 

.0 


2 . 

. 61 
. 5 

.725 


.0 

.5 


.75 

.0 

.05 


.0 

6.28 


2 . 

.73 

.56 

.9 

.0 

1 . 

.05 


2 . 

.61 

. 5 

.725 


.0 

.5 


.75 

.0 

.0 5 


.0 

6.23 


3 . 1416 


2 . 

.73 

.56 

.9 

.0 

1 . 

.05 


2 . 
.61 
. 5 

.725 


.0 

.5 


.75 

.0 

.0 


.0 

6.23 


2 . 

.73 


2 . 

. 61 


.0 

.5 


.0 

.04 


.0 

.04 


.0 

.04 


.0 

.04 
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56 


5 


.61 .5 


.725 


1C. 

1 0 
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3.U.2 Primary Subroutine Input A>r»-p ut 


SUBROUTINE SBC A a 
INPUT FOR CASE 1 


ARRAY ARM1SC 


inoex 

VALUE 

INOEX 

VALUE 

INOEX 

VALUE 

INDEX 

VALUE 

1 

-0.0000 

1 1 

-0. 0000 

21 

-0.0000 

31 

0. GOOD 

2 

-o.ooco 

12 

— 0 . 0000 

22 

-0. 00 00 

32 

. 0 A 00 

3 

.3500 

13 

-0.0000. 

23 

-0.00 00 

33 

. OAOO 

A 

-1.0000 

U 

1.0000 

2 A 

-0.0000 

3A 

. AOOO 

5 

-0.0000 

15 

0. 0000 . 

25 

3.0000 

35 

-0.0000 

6 

0.0000 

16 

-0.0000 

26 

-0. CO 00 

3b 

1. 0000 

7 

.7500 

17 

0.0000 

27 

-0.00 00 

37 

-0.0000 

8 

0.0000 

18 

-0.0000 

28 

.80 00 

38 

-0. 0000 

9 

0.0000 

19 

-0.0000 

29 

0.0000 

39 

-0.0000 

10 

15.C000 

20 

-0.0000 

30 

.05 00 

AO 

-0. 0000 


ARRAY AR 







K « 2 

J * 
I 
1 

1 

2 

3 

A 

5 

6 

2.00000 

2.00000 

-C. 00000 

-0.00000 

-0.00000 

0.00000 

2 

.67500 

.15000 

-0.00000 

-3.00000 

-O.OCOOO 

6 . 28 COO 

3 

.35000 

.20000 

-0.00000 

-0.00000 

-0.00000 

-O.OCOOO 

A 

1.00000 

.10000 

-0.00000 

-0.00000 

-O.OCOOO 

-0.00000 

J * 
l 
1 

7 

8 

9 

10 

11 


2.00000 

2.00000 

0.00000 

2.00000 

2.00000 


2 

. 730GC 

.61000 

. 500C0 

.06500 

. 06CG0 


3 

.56000 

.50000 

-0.00003 

.1 cooo 

. 1C0CC 


A 

.90000 

.72500 

-0.00000 

.03000 

.02000 




HOOAL AMPLITUDES - I MODULUS / PH ASE ) 


PHASE. L t . 180 DEG AND PHAS E . G T. - 1 3 0 DEG 


N 

H ■ 

-11 

M « 

1 

4.04E-04 

103.46 

1.30E-04 

N 

M « 

-3 

M » 

1 

2 

l. 5&E-04 

-60.73 

1.53E-04 

4.53E-04 

N 

M * 

-5 

M * 

l 

l. 54E-04 

130. 99 

1.54E-04 

2 

3 

5.40E-05 

119.05 

1.66E-05 

1.91E-04 

N 

M • 

-2 

M « 

1 

1 .49E-04 

-36. 43 

1.42E-04 

2 

4.76E-05 

143.29 

7.09E-05 

3 

1 . 01E-C4 

137.39 

3.73E-05 

N 

M * 

• 

l 

M * 

1 

l .45E-04 

-22.94 

lw56E-Q4 

2 

7. 24E-C5 

159.35 

5.02E-05 

3 

3. 37E-C5 

152.06 

9.18E-05 

N 

M » 

4 

M » 

I 

1 .e7E-04 

-9.26 

1.87E-04 

2 

3 . 08E-G 6 

-33. 64 

3.50E-05 

3 

1.26E-C4 

168.34 


N 

M « 

7 

M « 

1 

1.58E-C4 

2.76 

1.47E-04 

2 

2.b2 E-05 

173. 47 


N 

M * 

13 

M * 

1 

8. 42E-C5 

11.67 

1.33E-04 


-10 

H - 

-9 

-6 8.03 

1.64E-04 

115. 57 

-7 

M * 

-6 

12 3.07 
11 4. 9o 

1 .53E-04 
1.03E-04 

-53.03 
-62. 12 

-4 

M » 

-3 

-44.90 
-72. 41 
130. 31 

1 .5 3E-04 
1.3 fcE-05 
1.27E-04 

139. 33 
- 24 . Oo 
-46.01 

» 

*• * 

M « 

0 

14 7.94 
-29.45 
-37.87 

1.39E-04 
3.03E-05 
8. 19E-05 

-27. 56 
154. 56 
-33. 1* 

2 

H « 

3 

-18.29 
165. 10 
15 7.54 

1.64E-04 

2.2CE-05 

1.05E-04 

-13. 71 
174. 58 
1 o 3. 03 

5 

M • 

6 

- 5. 03 
-1 0.21 

1.64E-04 
5.4 6E-05 

-l. 00 
-3. 42 

8 

M - 

9 

6. 18 

1.27E-04 

9. 13 

11 



- 156. 55 
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SUBROUTINE 88CAA 


INPUT 

FOR CASE 2 



ARRAY 

ARM ISC 



INDEX 

VALUE 

INDEX 

VALUE 

I 

-o.cooo 

11 

-0. 0000 

2 

-0.0000 

12 

-0.0000 

3 

.3500 

13 

-0.0000 

4 

-1.0000 

14 

l. 0000 

5 

-0.0000 

15 

J. 0000 

6 

0.0000 

lb 

-o.cooo 

7 

.7500 

17 

0. 0000 

a 

0.0000 

la 

-0. 0000 

9 

o.cooo 

19 

-3.0000 

10 

15.0000 

20 

-0. 0000 


INDEX 

VALUE 

INOEX 

VALUE 

21 

-0.0300 

31 

0.0000 

22 

-0. 0000 

32 

. 0400 

23 

-0.0000 

33 

.OoOO 

24 

-0.0000 

34 

. 4000 

25 

4.00 00 

35 

-0. 0000 

26 

-O.COOO 

36 

1. 0000 

27 

-0.0030 

37 

-0.0000 

28 

.8000 

38 

-0. GOOD 

29 

O.COOO 

39 

- 0.0 030 

30 

.0500 

40 

-0. 0000 


ARRAY AR 


K * 2 


J * 
I 
1 

1 

2 

3 

4 

5 

6 

2.00000 

2.00003 

-0.00000 

-3.0C00C 

-0.00000 

0.00030 

2 

.67500 

.15000 

-0.00000 

-0.00000 

- 0 . oooco 

6.23030 

3 

.35000 

.20003 

-0.00000 

-0.00003 

-0. ocooc 

-0.00030 

4 

l.OOCOO 

.10000 

-0.00000 

-0.00000 

-0.00000 

-0 .00030 

J * 
I 
l 

7 

8 

9 




2.00000 

2.00000 

0.00000 




2 

.73000 

.61000 

.50000 




3 

.56000 

.50033 

-0.00000 




4 

.90000 

.72500 

-0.00000 





90 



HOOAL AMPLITUDES = < MODULUS # PH ASfc ) 


PHASE.LT. 180 OEG AND PHASE .GT.- 180 DEG 


M 

M * 

-11 

M * 

-10 

M * 

-9 

l 

2.0AE-0A 

130.00 

1. 13E-0A 

C . 00 

l.lAt-OA 

130. 00 

N 

1 

M « 

-3 

M = 

-7 

M = 

-b 

1.23E-0A 

0.00 

1.36E-0A 

18 0.00 

1 .5CE-0A 

0. GO 

2 



, V. 076-03 

18 0. 00 

3.13E-0A 

0. 00 

N 

1 

M « 

-5 

M * 

-A 

M a 

-3 

1 . bbE-OA 

180.00 

1.33E-0A 

C.00 

1 .99E-0A 

180. 00 

2 

3 

2. 22E-0A 

130. GO 

1.59E-QA 
1. 38E-0A 

0. 00 
13 0. 00 

1.02E-0A 
1 .6 AE-OA 

130. 03 
0. 00 

N 

M a 

-2 

H * 

-1 

M * 

0 

1 

2. 1CE-CA 

o.oc 

2.13E-0A 

18 C. 00 

2. 12E-0A 

0. 00 

2 

A . bAE-05 

0.00 

5.22E-07 

0. 00 

2 . A9E-05 

13G.00 

3 

1 . 5fcE-0<» 

180.00 

l. A3E-0A 

0.00 

1. A2E-0A 

0. 00 

N 

1 

M « 

1 

H * 

2 

M * 

3 

2. 13E-CA 

O.OC 

2.15E-0A 

C. 00 

2 . 1 2E-0A 

0. 00 

2 

2. 12E-05 

130.00 

2.A3E-0b 

0.00 

3.0CE-05 

0.00 

3 

1.33E-0A 

180.00 . 

1.37E-0A 

130.00 

1 .Alt-OA 

130.00 

N 

M « 

A 

M a 

5 

M a 

b 

1 

2 . 07E-0 A 

0.00 

1.99E-0A 

0. 00 

1.90E-0A 

0. 00 

2 

3 

5 . 10E-C5 
1 . 58E-CA 

O.OC 
130. OC 

5.99E-05 

0.00 

A.29E-05 

0. 00 

N 

M * 

7 

M » 

8 

M = 

9 

1 

2 

N 

l 

1.77E-CA 

3.03E-0A 

M * 

7. 32E-05 

0.00 
130. OC 

1 0 

0. 00 

l.oOE-OA 

M a 

2.39E-0A 

* 

0.00 

11 

18 0. OC 

l .33E-GA 

3. 00 
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SUBROUTINE BBC AA 


INPUT FOR CASE 3 


ARRAY ARM 
INDEX 

ISC 

VALUE 

INDEX 

VALUE 

INDEX 

VALUE 

INDEX 

V AL JE 

1 

-0.0000 

I 1 

-0. 0000 

21 

-0.00 00 

31 

0. 0000 

2 

-0.0000 

12 

-0.0000 

22 

-o.cooo 

32 

. C 400 

3 

.3500 

I 3 

-0 . 0000 

23 

-0.00 00 

33 

.0400 

4 

-I. 0000 

I A 

l. 0000 

24 

-0. cooo 

34 

. 4000 

5 

-0.0000 

l 5 

0.0000 

25 

3.0000 

35 

-0. 0000 

6 

0.0000 

16 

-0.0000 

26 

-0.0000 

36 

1. 0030 

7 

.7500 

17 

0.0000 

27 

-0. 00 30 

37 

-0. 0000 

6 

0.0000 

13 

-0.0000 

23 

.8000 

33 

L. 0000 

9 

o.cooo 

19 

-o.cooo 

29 

o.cooo 

39 

— 0 • 0000 

10 

15.0000 

20 

-0. 0000 

30 

.0500 

40 

-0.0003 


ARRAY AR 







K = 2 

J = 
I 
1 

1 

2 

3 

4 

5 

6 

2.00000 

2.00000 

-0.00000 

-0.00000 

-0.00000 

0.00033 

2 

.67500 * 

.1 5000 

-C. 00000 

-0.00003 

-0 . ooocc 

6.23 000 

3 

. 35C00 

. 20C00 

-0.00000 

-0.00000 

-O.OOOCC 

-0 .00300 

4 

1.00000 

.10000 

-0.00000 

-0.00000 

-0. ooocc 

-O.CCODO 

J = 
I 
l 

7 

8 

9 

10 

11 


2.00000 

2.00000 

0.00000 

2.00000 

2 .OCOCO 


2 

.73000 

.0 1C00 

. 50000 

.0 6500 

» 0 60 0 0 


3 

.56000 

. 50CG0 

-0.00000 

. 1 cooo 

. ICOCO 


4 

.90000 

.72503 

-C. 00000 

.0 3000 

.02000 
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MODAL AMPLITUDES = ( MODULUS » PH ASE ) 
fPHASi Ten 180 DEG AND PHAS E . G T.- 130 DEG 


‘?r 



H * 

-11 . • 

M * 

-10 

M * 

-9 

N 



t 




1 

4. 1 1 E- 04 

100.60 

1.92E-04 

-6 8.94 

1.69E-04 

110. 79 

N 

1 

M * 

-8 

M = 

-7 

M = 

-6 

1.63E-04 

-68.92 

1.61E-04 

11 1.66 

l .62E-04 

- b7. 53 

2 



4.53E-04 

11 4.93 

1 . 13E-04 

- 69. 6 3 

N 

1 

M * 

-5 

H * 

-4 

M = 

- 3 

1 . 62E-04 

113.43 

1.63E-04 

-6 5. 50 

1 .6 IE-04 

U5.o5 

2 

5. 31E-05 

106. 64 

1.36E-05 

-3 3.42 

1 .39E-05 

-43. 40 

3 



2.01E-04 

12 0.60 

1 .35E-04 

-61. 29 


M * 

-2 

M = 

-1 

M * 

0 

N 







1 

1 . 55E-C4 

-63. 11 

1.46E-04 

11 8. 17 

1.42E-04 

- o 3 . 16 

2 

4 . 92E -05 

124. 14 

7.29E-05 

-5 7. 07 

8.15E-05 

L 2 3. 94 

3 

l . 03E-0 4 

113.38 

9. 36E-05 

“6 C . 96 

3.73E-05 

-59. 39 


H * 

1 

M * 

2 

M * 

3 

N 


• 





l 

1 .46E-C4 

-53.11 

1.54E-04 

-5 5. 75 

1.59E-04 

-53. 14 

2 

7.24E-C5 

126. 58 

4.92E-05 

13 1.27 

2.1 IE -05 

143. 43 

3 

8.7BE-C5 

122.31 

9.47E-05 

12 b. 46 

1.07E-04 

131. 53 

N 

1 

M * 

4 

M « 

5 

M » 

6 

1 . 59E-04 

-50.51 

1. 56E-04 

-4 7. 76 

1 .5 CE-04 

-44. 37 

2 

9. 95E-C6 

-30.39 

3.50E-05 

-5 1.13 

5.28E-05 

-41. 07 

3 

1.27E-04 

138.78 





N 

1 

M * 

7 

M * 

8 

M = 

9 

1 .42E-C4 

-41.31 

1.30E-G4 

-33. 52 

1.11E-04 

-34. 93 

2 

2. 72E-05 

132. 34 





N 

1 

M « 

10 

M * 

11 



7. 34E-C5 

-30. 71 

1.62E-04 

15 5.39 
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SUBROUTINE 8BCAA 


INPUT FOR 

CASE A 







ARRAY ARM 

ISC 







INDEX 

VALUE 

inoe x 

VALUE 

INDEX 

VAL JE 

INDEX 

VALJE 

1 

-0.0000 

1 1 

-0.0000 

21 

-0. CD 30 

31 

0 . COOO 

2 

-0. COCO 

12 

-0. 0000 

22 

-O.COOO 

3 2’ • 

. OaOO 

3 

. 3500 

1 3 

-0. 0000 

23 

-0.0000 

33 

. Oa JO 

A 

-l.COOO 

LA 

l.COOO 

2A 

-O.COOO 

3 A 

.OAOO 

5 

-0.0000 

15 

O.COOO 

25 

3.0000 

35 

-0. COOO 

6 

O.COOO 

16 

-0. 0000 

26 

-O.COOO 

36 

1. 0000 

7 

.7500 

17 

0. 0000 

27 

-0. cooo 

37 

-C. 0000 

a 

O.COOO 

L 3 

-0 . 0000 

28 

. 80 00 

38 

-0. 0000 

9 

0.0000 

19 

-0.0000 

29 

O.COOO 

39 

-C. 0003 

10 

15.0000 

20 

-0. 0000 

30 

. 05 00 

AC 

-0. 0000 


ARRAY AR 

K * 2 

J * 

I 

1 

1 

2 

3 

A 

5 

6 

2.00000 

2.00000 

- 0.00000 

- 0.00000 

- 0 . oooco 

0 .00000 

2 

.67500 

.15000 

- 0.00000 

- 0.00000 

- C . ooocc 

6.23000 

3 

.35000 

.20000 

- 0.00000 

- 0.00000 

- o.ococo 

- 0.00000 

A 

1.00000 

.10000 

- 0.00000 

- 0.00000 

- 0.00000 

-O.COCDO 

J * 
I 
1 

7 

8 

9 

10 

11 


2.00000 

2.00000 

0.00000 

2.00000 

2.00000 


2 

.73000 

.61000 

. 50000 

.0 6500 

. 060 00 


3 

.56000 

.50000 

- 0.00000 

.1 0000 

. 100 C 0 


A 

. 900C0 

.72500 

- 0.00000 

.03000 

. 020 C 0 




MODAL AMPLITUDES 


( MOOULUS# PHASE I 


PHASE.LT. 160 DEG AND P H AS E . G T. - 1 SO DEG 


N 

1 

M * 

-11 

M * 

-10 

M = 

-9 

4. t*8E-05 

103. <.6 

2.11E-Q5 

-6 8.03 

1 .326-05 

115.57 

N 

1 

M * 

-8 

M * 

-7 

M = 

-6 

1.73E-05 

-60. 73 

1.70E-05 

12 3. 07 

1 .7CE-05 

-53. 03 

2 



5.01E-05 

11 4.96 

1 .2 OE-O 5 

-62. 12 

N 

1 

M * 

-5 

M * 

-4 

M = 

-3 

1. 70E-05 

130.99 

1.71E-05 

-4 4. 90 

1.7CE-05 

139. 33 

2 

5. 98E-C6 

119.05 

1.84E-06 

-7 2.41 

2.06E-06 . 

-24. 06 

3 



2.11E-05 

130. 31 

1.4CE-05 

-'to. 0 1 

N 

1 

M * 

-2 

M * 

-1 

M * 

0 

1 .65E-05 

-36. A3 

1.57E-05 

14 7.94 

1.54E-05 

-27. 56 

2 

5.27E-06 

143.29 

7.35E-06 

-29.45 

8.89E-06 

1 54. 5o 

3 

l. 126-05 

137.39 

9.67E-06 

-37.87 

9.05E-06 

- 33. It 

N 

1 

M « 

1 

M * 

2 

M a 

3 

1 .falE-05 

* -22.94 

1.73E-05 

-1 8.29 

1.31E-05 

-13. 71 

2 

8.02E-06 

159.35 

5.566-06 

lo 5. 10 

2 . 4 4E-0fc 

17 4. 5 3 

3 

9 . 27E-G6 

152.06 

1.02E-05 

15 7. 54 

1.17E-05 

163.03 

N 

1 

M => 

4 

M * 

5 

M « 

6 

1 . 35E-C5 

-9.28 

1.35E-05 

- 5. 03 

1.31E-05 

- 1. CO 

2 

8.95E-07 

-33. 64 

3.33E-06 

-i C. 21 

a . 0 5 E- C b 

-3.42 

3 

1 . 40E-05 

163.34 






M = 

7 

M * 

8 

M * 

9 

N 







l 

l . 75E-C5 

2.76 

1.63E-05 

6. 13 

1.4 IE- 05 

9. 13 

2 

2. 9CE-Cb 

173.47 






M * 

10 

M * 

11 



N 







1 

9. 32E-06 

11.67 

2.03E-05 

- 166. 55 
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SUBPOUTI NE BBC A A 


INPUT FOR CASE 5 


ARRAY ARMISC 


I NOEX 

VALUE 

INDEX 

VALUE 

INDEX 

VALUE 

INDEX 

VALUE 

L 

-C. 0000 

l l 

-0. 0000 

21 

-0. COOO 

31 

0. OOOO 

2 

-0.0000 

12 

-0.0000 

22 

-O.COOO 

32 

. COO 

3 

.3500 

13 

-0.0000 

23 

-0.00 00 

33 

.0400 

4 

-1.0000 

14 

1.0000 

24 

-O.COOO 

34 

10. oooo 

5 

-0. 0000 

15 

0. COOO 

25 

3. COOO 

35 

-c. oooo 

6 

O.COOO 

16 

-0. 0000 

26 

-0. COOO 

36 

1. COOO 

7 

.7500 

17 

0.0000 

27 

-O.COOO 

37 

-0. oooo 

8 

0.0000 

13 

-o.oooo 

23 

.8000 

38 

-0. COOO 

9 

O.COOO 

19 

-0.0000 

29 

0. oooo 

39 

-C. 00 JO 

10 

15.0000 

20 

-0. COOO 

30 

.0500 

40 

-0. OOOO 


ARRAY AR 


K = 2 


J * 
I 
l 

1 

2 

3 

4 

5 

6 

2.00C00 

2.00000 

-0.00000 

-0.00000 

-C. 00000 

0.00000 

2 

.67500 

.15000 

-0.00000 

-0.00000 

-0. ooocc 

6.23000 

3 

.35000 

* .20000 

-0.00000 

-0.00000 

— C • 000 CO 

-0.00000 

4 

1.00000 

.10003 

-o.ooo'co 

-0.00000 

-c. occcc 

-0.00000 

J = 

I 

l 

7 

8 

9 

10 

11 


2.00000 

2.00000 

0.00000 

2.00000 

2.0000C 


2 

.73000 

.61000 

. 500 C 0 

. 0 55 00 

. 0 6 0 0 C 


3 

.56000 

.50000 

- 0.00000 

.1 oooo 

. 10000 


4 

.90000 

.72500 

-0.00000 

.03000 

. 020C0 




MODAL AMPLITUDES - < MO DULUS » P H AS £ ) 

PHASE .LT. 130 DEG ANO PHAS E . G T.- I 30 DEG 


N 

M « 

-11 

M « 

I 

7.01E-G4 

10a. 46 

3.30E-04 

N 

H « 

-3 

M = 

1 

2 

2.71E-C4 

-60.73 

2.66E-04 

7..35E-04 

N 

M * 

-5 

M * 

I 

2.66E-04 

130.99 

2.63E-04 

2 

9. 38E-05 

119.05 

2.33E-05 

3 



3.31E-04 

N 

M * 

-2 

M ■ 

1 

2 . 58E-04 

-36. 43 

2.46E-04 

2 

3. 26E-05 

14.3.29 

1.23E-04 

3 

1. 75E-04 

137.39 

1.51E-04 

N 

M « 

1 

• 

M ■ 

I 

2.52E-04 

-22.94 

2.73E-04 

2 

1 . 26E-G4 

159.35 

3.71E-05 

3 

L . 45E-04 

152.06 

1.59E-04 

N 

M * 

4 

M » 

5 

1 

2. 39E-04 

-9.28 

2.39E-04 

2 

1.40E-C5 

-33.64 

6.08E-05 

3 

2. 19E-04 

163.34 


N 

M * 

7 

M * 

I 

2. 74E-04 

2.76 

2.55E-04 

2 

4.55E-C5 

173.47 


N 

M * 

10 

M * 

l 

1.46E-04 

11.67 

3. 13E-04 


-10 

M * 

-9 

-6 3.03 

2.35E-04 

1 1 5. 57 

-7 

M * 

-6 

12 3.07 
11 4.9b 

2.66E-04 

1.37E-04 

-53. 03 
- o2. 12 

-4 

M « 

-3 

-44.90 

-72.41 

130.31 

2 .66E-04 
3.23E-05 
2 .2CE-04 

139. 30 
-24. 3o 

- 46.01 

-1 

M = 

0 

14 7. 94 
-2 9.45 
-37.87 

2.4 IE-04 . 

1.39E-04 

1.42E-04 

-27. 5b 
15 4. 36 
-33. 14 

2 

M * 

3 

-l 8.29 
165.10 
15 7.54 

2.34E-04 

3.32E-05 

1.33E-04 

-13. 71 
174. 53 
163.03 

5 

M * 

6 

- 5.03 
-1 0.21 

2.34E-04 

9.43E-05 

-1. 00 
-3. 42 

3 

M * 

9 

CO 

*•4 

• 

o 

2.21E-04 

9. 13 

11 



- lb 6 . 55 
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SUBROUTINE 8BCAA 


INPUT FOR CASE 6 


ARRAY ARPIS: 


INDEX 

VALUE 

INOEX 

VALUE 

index 

VALUE 

INOEX 

value 

1 

-0.0000 

11 

—0 « 3 G0'3 

21 

-0.0300 

31 

.0900 

2 

-0.0300 

12 

-O.OCOCi 

22 

-3.0300 

32 

.0400 

3 

.3903 

13 

-0.3 COO 

23 

-0.0300 

33 

.0403 

4 

-1.0000 

14 

1.3003 

24 

-0.0300 

34 

O.OCOO 

5 

-0.0000 

19 

o.ocoo 

29 

3.0000 

39 

. 4C0C 

6 

0.0000 

16 

-0.3003 

26 

-0.0300 

36 

1.0000 

T 

.7900 

17 

0.0003 

27 

-0.0300 

37 

-0.0000 

8 

0.0000 

13 

—0 .0003 

28 

.3000 

38 

-0. 0300 

9 

0.0000 

19 

-3.3003 

29 

-3. 0300 

39 

-o.ocoo 

10 

19.0000 

20 

-0.0003 

30 

0. 0300 

40 

-0.0030 


ARRAY AR 






K * 2 

J • 1 

I 

1 2.00000 

2 

3 

4 

5 

6 

2.00033 

-O.OOOGO 

-0. cooco 

-3.00030 

C.00030 

2 .67503. 

.15000 

-3.C0000 

-0.00033 

-3.03030 

b. 28330 

3 .35000 

.20000 

-O.COOCO 

-0.00000 

-3.00030 

-O.OOGOO 

4 1.00000 

.10000 

-O.OOOGO 

-O.COOOO 

-0.00030 

-0.00000 

J - 7 

I 

1 2.00000 

8 

9 

10 

11 


2.00000 

O.OOOGO 

2.00300 

2.03030 


2 .73000 

.61033 

.5G3C0 

. C 650 3 

.06030 


3 . 56000 

.50000 

-O.OOOGO 

. 10000 

. 10030 


4 .90000 

.72 500 

-O.OOOGO 

.03003 

.02030 




MODAL AMPLITUDES = ( MODULUS #PHA SE > 


PHASE. LT. 130 DEG AND PH A S E. GT .- 1 30 DEG 


N 

1 

M ■ 

-11 

M ■ 

-10 

M * 

-9 

4.85E-04 

-46.02 

2.35E-04 

137.05 

2. 1 3 E - 0 4 

-39.94 

N 

1 

M * 

-8 

M » 

-7 

M » 

-6 

2.Q5E-04 

143.03 

2.C7E-G4 

-34. D5 

2.13E-04 

1*8.33 

2 



. 6 » 28E-04 

-38.30 

1. 5oE-04 

1 H* . 3 1 

N 

1 

M « 

-5 

M * 

-4 

« * 

-3 

2.19E-04 

-28.33 

2 .2oE-C4 

154.48 

2.29E-04 

-22.76 

2 

8.16E-05 

-33.92 

2.69E-G5 

142.85 

2.29E-05 

166.67 

3 



2 . 88E-04 

-27.72 

1.97E-04 

154.89 

N 

1 

M - 

-2 

M « 

-1 

M * 

0 

2.27E-04 

159.98 

2 • 19E-Q4 

-17.31 

2. 13E-04 

165.42 

2 

6.33E-05 

-17.72 

1 .CoE-04 

163.93 

1.22E-04 

-13.53 

3 

1.62E-04 

-22.48 

1 .44E-04 

160.24 

1.33E-04 

163.08 


M « 

1 

M » 

2 

M « 

3 

N 

• 






1 

2.29E-04 

168. 17 

2 • 47E-Q4 

170.90 

2.53E-04 

173.59 

2 

1.10E-04 

-10.73 

7.42E-G5 

-7.38 

2.33E-05 

-l .37 

3 

1.43E-04 

-13.95 

l .56E-04 

-10.91 

1.73E-04 

-7.8 8 

N 

1 

M « 

* 

M - 

5 

M « 

6 

2. 62E-04 

176.22 

2 . 59E-G4 

173.79 

2.51E-04 

-178.74 

2 

1.97E-03 

168.41 

O.32E-05 

170.37 

9. 15E-05 

1 79.99 

3 

2.10E-Q4 

-4.91 





N 

1 

M « 

7 

M » 

3 

M * 

9 

2.38E-04 

-176.36 

2 .17E-04 

- i74. 13 

1.84E-04 

-172.10 

2 

5.7oE-05 

-.72 






M « 

10 

M ■ 

11 



N 







l 

1.19E-04 

-170.34 

2.53E-04 

10.98 
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SUBROUTINE 98CAA 


INPUT f OR CASE 7 


ARRAY 4 R PI SC 


1 NO EX 

VALUE 

INOEX 

VA LUC 

INOEX 

VALUE 

INOEX 

VALUE 

l 

-0.0005 

11 

-0.0000 

21 

-0.0300 

31 

.0500 

2 

-0.0003 

12 

-0.0000 

22 

-0.0000 

32 

.0430 

3 

.3 500 

13 

-0.3000 

23 

-0.0030 

33 

.0400 

4 

-l.GOOO 

14 

1.0000 

24 

-0.0300 

34 

. 4000 

5 

-0.0000 

15 

0.0000 

25 

3.0300 

35 

.4000 

6 

0.0000 

16 

-0.0000 ' 

26 

-0.0300 

36 

l.OCOO 

7 

.7500 

17 

0.3000 

27 

-0.0300 

37 

-0.0030 

8 

0.0000 

13 

-o.ocoo 

28 

.8300 

38 

-O.OCOO 

9 

0.0000 

19 

-0.3003 

29 

-0.0300 

39 

-o.ocoo 

10 

15.0000 

20 

-0.0000 

30 

.0500 

40 

-0.0000 


ARRAY AR 


X « 2 


J • 
I 
1 

1 

2 

3 

4 

5 

6 

2.00030 

2.00C33 

-o.oooco 

-0.00000 

-3.00030 

0.00000 

2 

.67500 . 

.15033 

-3.00000 

-0.00000 

-J .00030 

6.28C00 

3 

.35030 

.20033 

-0.0.0000 

-0.00000 

-3.00330 

-O.OCCOO 

4 

1.00030 

.10000 

—0 . CO oco 

-0.00000 

-3 .00030 

-O.OQCOO 

J - 
I 
1 

7 

8 

9 

10 

11 


2.00000 

2.00030 

o.oooco 

2.00033 

2.00030 


2 

.73030 

.61030 

.50000 

.06500 

.06030 


3 

. 56000 

.50030 

-0 • 03000 

. 10303 

. 10330 


4 

.90000 

.72530 

—3 .C03C0 

.03303 

.02030 




i\j •— Z uj f\j »- Z uj r\j »- Z WM-Z uj rv »- Z w»-Z 


MODAL AMPLITUDES 


(MOOULUS»PHA$£> 


PHASE. LT. 180 0 £ G AND PH A S E, GT . - 1 80 0£G 


M « 

-n 

H » 

-10 

M - 

-9 

2.11E-04 

9. 43 

1 .02 £-04 

-170.94 

9.33E-05 

3.09 

M « 

-3 

n * 

-7 

M * 

-6 

8.34E-05 

-171.66 

3 .906-05 
3.036-04 

3.00 

3.97 

9. 03 £ -05 
7.O1E-05 

-172.32 
-l 76. 55 

M » 

-5 

M « 

-4 

H * 

-3 

9.29E-C5 
4. 15E-Q5 

7. 36 
2.37 

9.5QE-05 
1 .64E-05 
1 .326-04 

- 172.93 
173.53 
4.97 

9. 57 £ -05 
5. 3 3 E -06 
9. 11 £-05 

6.79 

- 156.64 

- 175.41 

M * 

-2 

H * 

-1 

M * 

0 

9.40E-05 

2.546-05 

7.53E-05 

-173.48 
9.1'? 
4, 30 

9.01E-05 
*» .G3E-05 
6.o<?£-05 

6.29 

-172.39 

-175.35 

8.32E-05 
*t» oar£-05 
6. 37E-05 

- 173.39 
7.14 
-175.85 

M « 

l 

M « 

2 

M * 

3 

9 . 12 E- 05 
4.07E-05 
6.47E-05 

-174.00 
7. 11 
4. 30 

9.61E-05 

2.53E-05 

O.91E-05 

-174.09 

7.67 

4.52 

9.32E-05 
6. 24 E -06 
7. oOE-05 

-174.17 

13.02 

4.77 

M * 

4 

M • 

5 

M • 

6 

9.&9E-05 

1.26E-05 

8.O1E-05 

-174.27 
' -177.68 
4.99 

9 . 31 £-05 
2.87E-05 

- 174. 39 

- 175.61 

3. 74E-05 
3. f 1 E -05 

- 174.50 
-175.01 

M * 

7 

M * 

a 

M * 

9 

8.00E-05 
3. 16E-05 

-174. !j3 
4.09 

7 .03E-05 

-174.78 

5.71E-05 

-174.95 

n * 

10 

M » 

11 



3.51E-G5 

-175.16 

7.03E-05 

4.59 
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SUBROUTINE SBC AA 


INPUT FOR CASE 8 


ARRAY 

INDEX 

ARM ISC 

VALUE 

INDEX 

VALUE 

INOEX 

VALUE 

INOEX 

VALUE 

1 

-0.0000 

I i 

-0. 0000 

21 

-0.0000 

31 

0. 0000 

Z 

-0.0000 

12 

-0. 0000 

22 

-0.0000 

32 

. GAOO 

3 

.3500 

13 

-0.0000 

23 

-0. CO 00 

33 

. OAOO 

A 

-1.0000 

1A 

1.0000 

2A 

-0. 0000 

3A 

. AO 00 

5 

-0.0000 

15 

0.0000 

25 

3.0000 

35 

-0. 0000 

6 

0.0000 

lb 

-0.0000 

2b 

1.0000 

3b 

1. 0030 

7 

.7500 

17 

0.0000 

27 

-0.0000 

37 

-0.0000 

8 

0.0000 

18 

-0. 0000 

28 

.8000 

38 

-0. 0000 

9 

0.0000 

19 

-0. 0000 

29 

3. lAib 

39 

-0.0000 

10 

15. 0000 

20 

-0. 0000 

30 

. 05 00 

AO 

-0. 0000 


ARRAY AR 

K - Z 

J - 
I 
1 

1 

2 

3 

A 

5 

b 

2.00000 

2.00000 

- 0.00000 

- 0.00000 

- 0.00000 

0.00000 

2 

.b7500 

.15000 

- 0.00000 

- 0.00000 

- 0.00000 

6.28000 

3 

.35000 

.2 0000 

- 0.00000 

- 0.00000 

- 0.00000 

- 0 .00000 

A 

1.00000 

.10000 

- 0.00000 

- 0.00000 

- 0. ococo 

- 0.00000 

J - 
I 
1 

7 

8 

9 

10 

11 


2.00000 

2.00000 

0.00000 

2.00000 

2.00000 


2 

.73000 

.blOOO 

.50000 

. 0 b500 

.06000 


3 

. 5b000 

.50000 

- 0.00000 

.10000 

. 10000 


A 

.90000 

.72500 

-0.00003 

.03000 

. 02CC0 




MOOAL AMPLITUDES • I MODULUS » PH ASE I 


PHASE. LT. 180 DEG AND PHAS E . G T.- 18 0 DEG 


N 

1 

M » 

-11 

M ■ 

-10 

M * 

-9 

4.04E-04 

108.47 

1.90E-04 

11 1.98 

1.64E-Q4 

115. 53 

N 

1 

M * 

-8 

M ■ 

-7 

M « 

-6 

l. 56E-04 

119.28 

1.53E-04 

123.08 

1 .53E-04 

126. 93 

2 



4.53E-04 

114.96 

1.08E-04 

117. 89 

H 

l 

M « 

-5 

M - 

-4 

M * 

-3 

1.54E-04 

131.00 

1.54E-04 

135. 11 

1.53E-04 

139. 31 

2 

5.40E-05 

119.06 

1.66E-05 

107. 60 

1 .86E-05 

-24.05 

3 



1.91E-04 

-49.68 

1.27E-04 

-46. 00 

N 

1 

H « 

-2 

M ■ 

-1 

M * 

0 

1.49E-04 

143. 58 

1.42E-04 

147.94 

1.39E-04 

152. 44 

2 

4 . 76E-05 

-31.70 

7.09E-0 5 

-2 9.44 

8.03E-05 

-25. 44 

3 

1.01E-04 

-42.11 

8.73E-05 

-3 7.86 

8. 19E-05 

146. 86 

N 

l 

H « 

l 

M - 

2 

M - 

3 

1.45E-04 

-22.93 

1.56E-04 

16 1.72 

1.646-04 

-13. 71 

2 

7.24E-05. 

159.36 

5.02E-05 

-14.39 

2.20E-05 

174. 59 

3 

8. 37E-05 

152.07 

9.18E-05 

-2 2.45 

1.05E-04 

163.04 

N 

1 

H • 

4 

M » 

5 

M » 

6 

1.67E-04 

170. 72 

1.67E-04 

-5.02 

1.6 46-04 

179. 01 

2 

8 • 08E-06 

146.36 

3.50E-05 

-1 0.20 

5.46E-05 

176. 59 

3 

1.26E-C4 

-11.66 





N 

1 

M ■ 

7 

M - 

8 

. M • 

9 

1.58E-04 

2.76 

1.47E-04 

-17 3. 82 

1.27E-04 

9. 19 

2 

2. 62E-05 

173.47 





N 

1 

M « 

10 

H • 

11 



8.42E-05 

-168. 33 

1.33E-04 

- 166. 55 
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SUBROUTINE BSC A A 


INPUT FOR CASE 9 


ARRAY ARHISC 


INDEX 

VALUE 

INOEX 

VALUE 

INDEX 

VALUE 

INOEX 

VALUE 

I 

-0.0000 

11 

-0.0000 

21 

- 0.0300 

31 

0.0000 

2 

-0.0000 

12 

-0.0000 

22 

- 0.0300 

32 

. 0400 

3 

.3500 

13 

- 0.0030 

23 

- 0.0300 

33 

.0400 

4 

-1.0000 

14 

1. 0000 

24 

-O.COOO 

34 

. 4000 

5 

-0.0000 

15 

0.0000 

25 

3.0000 

35 

-0. 0000 

6 

0.0000 

16 

-0.0000 

26 

3.0000 

36 

1. 0000 

7 

.7500 

17 

0.0030 

27 

-0.0000 

37 

- 0.0003 

8 

0.0000 

13 

-0.0000 

28 

.8000 

36 

-0.0000 

9 

0.0000 

19 

-0.0000 

29 

0.0300 

39 

-0.0000 

10 

15.0000 

20 

-0.0000 

30 

.0500 

40 

-0. 0000 


ARRAY AR 







X • 2 

J • 
1 
1 

1 

2 

3 

4 

5 

6 

2.00000 

2.00000 

-0.00000 

-0.00000 

-0.00000 

0.00000 

2 

.67500 

.15000 

-0.00000 

-0.00000 

-0.00000 

6.28000 

3 

.35000 

.20003 

-0.00000 

-0.00000 

-0.00000 

-0.00000 

4 

1.00600 

.10000 

-0.00000 

-0.00000 

-0.00000 

-0.00000 

J * 
1 
1 

7 

8 

9 

10 

11 


2.00000 

2.00000 

0. 00000 

2.00000 

2.00000 


2 

.730 00 

.61000 

.50000 

.06500 

. 06000 


3 

.56000 

.50000 

- 0.30300 

.10000 

. 10000 


4 

.90000 

.72500 

-0.00000 

.03000 

.02000 




MODAL, AMPLITUDES * ( MO DULUS » PHASE ) 

PHASE.LT. 180 DEG AND PHAS E . G T .- 1 30 DEG 


N 

H « 

-11 

M « 

1 

4. 04E-04 

108.46 

1.90E-04 

N 

H • 

-8 

H • 

1 

2 

1. 56E-04 

-60.73 

1.53E-04 

4.53E-04 

N 

M « 

-5 

M « 

1 

1 . 54E-04 

130.99 

1.54E-04 

2 

3 

5.40E-05 

119. 05 

1.66E-05 

1.91E-04 

N 

H « 

-2 

H * 

l 

1.49E-04 

-36. 43 

1.42E-04 

2 

4.76E-05 

148.29 

7.09E-05 

3 

1.01E-04 

137.89 

8.73E-05 

N 

M - 

1 

M « 

1 

1 . 45E-04 

-22.94 

1.56E-04 

2 

7.24E-05- 

159.35 

5.02E-05 

3 

8.37E-05 

152.06 

9.18E-05 

N 

M ■ 

4 

M ■ 

1 

1.67E-04 

-9.28 

1.67E-04 

2 

8. 08E-06 

-33.64 

3.50E-05 

3 

l. 26E-04 

168.34 


N 

M » 

7 

H ■ 

1 

l .58E-04 

2.76 

1.47E-04 

2 

2.62E-05 

173.47 


N 

H » 

10 

M « 

l 

8.42E-05 

11.67 

1.33E-04 


10 

M » 

-9 

-68.03 

1.64E-04 

115. 57 

-7 

H * 

-6 

12 3.07 

1.53E-04 

-53. 03 

11 4. 96 

1.08E-04 

-62. 12 

-4 

M « 

-3 

-44.90 

1.53E-04 

139. 30 

-7 2. 41 

1 .86E-05 

-24. 06 

130.31 

1 . 2 7E-04 

-46. 0 1 

-1 

M * 

0 

147.94 

1.39E-04 

-27. 56 

-2 9.45 

8.03E-05 

154. 56 

-37.87 

8. 19E-05 

-33. 14 

2 

M « 

3 

-18.29 

1.64E-04 

-13. 71 

165. 10 

2.2CE-05 

174. 53 

15 7.54 

1.05E-04 

163. 03 

5 

M * 

6 

-5.03 

1.64E-04 

-l. 00 

-10.21 

5.46E-05 

-3. 42 

a 

M » 

9 

6. 13 

1.27E-04 

9. 13 

11 



-166. 55 
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ACCUMULATION OF FOOTS 


MOOAL AMPLITUDES * 1 MODULUS* PHASE ) 


PHASE.LT. 180 DEG AND PHASE.GT.- 130 0 EG 


N 

l 

M » 

-11 

M ■ 

-10 

M - 

-9 

8.08E-04 

108.47 

3.50E-08 

-153.03 

3.29E-04 

115. 57 

N 

1 

M « 

-8 

M - 

-7 

M » 

-6 

2.63E-08 

-150.73 

3.07E-04 

12 3.08 

2.36E-08 

-143.02 

2 



9»05E -04 

11 4.96 

1.6 7E-0 8 

-152. 12 

N 

1 

M « 

-5 

M ■ 

-4 

M * 

-3 

3 . 07E-04 

130.99 

2.15E-08 

-134.90 

3.06E-04 

139. 30 

2 

1 • 08E-04 

119.05 

2.32E-09 

-162. 41 

3.72E-05 

-24.06 

3 



2.66E-08 

40. 31 

2.53E-04 

-4o.00 

N 

1 

M • 

-2 

M « 

-l 

M * . 

0 

1.36E-08 

-126. 43 

2.83E-04 

14 7.94 

1. 53E-08 

- 117. 56 

2 

5.94E-09 

58. 30 

1.42E-04 

-29. 45 

8.85E-09 

64 . 56 

3 

I.26E-08 

47.89 

1.75E-04 

-3 7.87 

9.03E-09 

-123. U 

N 

1 

M • 

1 

H • 

2 

M • 

3 

2.90E-04 

-22.94 

1.49E-08 

-108.29 

3.27E-04 

-13. 71 

2 

1.45E-04 

159. 35 

4. 79E-09 

75.11 

4.40E-05 

174. 58 

3 

1.&7E-04 

152.06 

8.76E-09 

67. 54 

2.11E-04 

163. 03 

N 

l 

M « 

4 

M » 

5 

M * 

6 

1.35E-08 

-99.28 

3.33E-04 

- 5. 03 

1 . 08E-08 

-91. 00 

2 

6. 53E-10 

-123. 64 

7.00E-05 

-10.20 

3.6 IE-09 

-93. 42 

3 

1 . 02E-08 

78.34 





N 

1 

M • 

7 

M * 

8 

H - 

9 

3. 15E-04 

2.76 

7.55E-09 

-3 3. 82 

2.55E-04 

9. 19 

2 

5 . 24E-05 

173.47 





N 

1 

M « 

10 

H ■ 

11 



3.09E-09 

-78.33 

3.66E-04 

-166.55 





SUBROUTINE BBC A A 


INPUT FOR CASE 10 


ARRAY ARMISC 


INDEX 

VALUE 

INDEX 

VALUE 

INDEX 

value 

INDEX 

VALUE 

1 

-0.0000 

1 1 

-0.0000 

21 

-O.CQOO 

31 

0. 0000 

2 

-0.0000 

12 

-0.0000 

22 

-0.0000 

32 

. 0400 

3 

. 3500 

13 

-0.0000 

23 

-O.COOO 

33 

.0400 

A 

-1.0000 

1 A 

1. 0000 

24 

-0. COOO 

34 

. 4000 

5 

-0.0000 

15 

0. 0000 

25 

3. COOO 

35 

-0. oooo 

6 

0.0000 

16 

-0.0000 

26 

-0.0000 

36 

1. 0000 

7 

.7500 

17 

0.0000 

27 

-O.COOO 

37 

. eooo 

6 

0.0000 

18 

-0. 0000 

28 

.8000 

33 

-0. 0000 

9 

0.0000 

19 

-0.0000 

29 

0.0000 

39 

-0. 0000 

10 

15.0000 

20 

-0. 0000 

30 

. C500 

40 

-0. 0000 


ARRAY AR 


K « 2 


J * 
I 
l 

1 

2 

3 

4 

5 

6 

2.00000 

2.00000 

- 0.00000 

- 0.00000 

- o.ocooo 

0.00000 

2 

.67500 

.15000 

- 0.00000 

- 0.00000 

- 0.00000 

6.29000 

3 

.35000 

.20000 

- 0.00000 

- 0.00000 

- 0.00000 

- 0.00000 

4 

1.00000 

.10000 

- 0.00000 

- 0.00000 

- 0. ococc 

- 0.00000 

J * 
I 
1 

7 

8 

9 

10 

11 


2.00000 

2.00000 

0.00000 

2.00000 

2.00000 


2 

.73000 

.61000 

.50000 

.06500 

.06000 


3 

.56000 

.50000 

- 0.00000 

.10000 

. 100C0 


4 

.90000 

.72500 

- 0.00000 

.03000 

. 020 C 0 




MODAL AMPLITUDES » < MODULUS *PHASE » 


PHASE. LT. 180 DEG ANO PHASE .GT.-130 DEG 


N 

L 

M « 

-11 

M « 

-10 

M « 

-9 

3.66E-04 

103. 46 

1.72E-04 

-68.03 

1.49E-04 

115. 57 

N 

1 

M « 

-8 

M » 

-7 

M « 

-6 

1.41E-04 

-60.73 

1.39E-04 

12 3.07 

1.39E-04 

-53.03 

2 



4.10E-04 

114.96 

9.77E-05 

-62. 12 

H 

1 

M ■ 

-5 

. M * 

-4 

M » 

-3 

1 .39E-04 

130.99 

1.40E-04 

-4 4. 90 

1.39E-Q4 

139. 30 

2 

4. 89E-05 

119. 05 

1.50E-05 

-72.41 

1.68E-05 

-24. 06 

3 



1.73E-04 

130.31 

1.15E-04 

-46. 01 

N 

I 

M * 

-2 

M «' 

-1 

M « 

0 

1. 35E-04 

-36.43 

1.28E-04 

147.94 

1 .26E-04 

-27. 56 

2 

4. 31E-05 

143.29 

6.41E-05 

-29.45 

7.27E-05 

1 54. 56 

3 

9.13E-05 

137.89 

7.90E-05 

-37.37 

7.42E-05 

-33. 1 4 

N 

L 

M * 

1 

M - 

2 

M - 

3 

1.31E-04 

-22.94 

U41E-04 

-1 8.29 

1.48E-04 

-13.71 

2 

6.55E-05 • 

159.35 

4.54E-05 

16 5.10 

1.99E-05 

174. 58 

3 

7.58E-05 

152. 06 

3. 31E -05 

157.54 

9.53E-05 

163. 03 

N 

1 

M « 

4 

M • 

5 

N « 

6 

1.51E-04 

-9. 28 

1.51E-04 

-5.03 

1.48E-04 

-1. 00 

2 

7.31E-06 

-33.64 

3.17E-05 

-10.21 

4.94E-05 

-3. 42 

3 

i. 14E-04 

163.34 - 





N 

1 

M « 

7 

M • 

8 

M * 

9 

1.43E-04 

2.76 

1.33E-04 

6. 18 

1.15E-04 

9. 13 

2 

2.37E-05 

173.47 





N 

1 

M « 

10 

M » 

11 



7.62E-05 

11.67 

1.66E-04 

-166. 55 
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SUBROUTINE 88CAA 
INPUT FOR CASE U 


ARRAY ARM I SC 


INOEX 

VALUE 

INOEX 

VALUE 

INOEX 

VALUE 

INOEX 

V ALUE 

1 

-0.0000 

1 1 

-0.0000 

21 

-0.0000 

31 

0. 0000 

2 

-0.0000 

12 

-0.0000 

22 

-0.0000 

32 

.0 400 

3 

.3500 

13 

-0.0000 

23 

-0.0000 

33 

.0400 

4 

-1.0000 

14 

1.0000 

24 

-0.0000 

34 

1C. OCOO 

5 

-0.0000 

15 

0.0000 

25 

3.0000 

35 

-C. 0000 

6 

0.0000 

16 

-0. 0000 

26 

-0. 0000 

36 

1. 0000 

7 

.7500 

17 

0.0000 

27 

-o.cooo 

37 

-0. GOOO 

8 

0.0000 

18 

-0.0000 

28 

.8000 

33 

- 0. 0000 

9 

0.0000 

19 

-0. 0000 

2 9 

0.0000 

39 

-C. 00 JO 

10 

15.0000 

2C 

-0.0000 

30 

.0500 

40 

-0. 0000 


ARRAY AR 


K * 2 


J = 
I 
1 

1 

2 

3 

4 

5 

6 

2.00000 

0 . 00 coo 

-0. 00300 

-0. 00000 

-0.00000 

0.00000 

2 

. 6750t) 

.10000 

-0.00000 

-0.00000 

-o.oooco 

b .2 8033 

3 

.35000 

0.0CGC0 

-0.30000 

-0.00030 

-3.00000 

- 0 .oocoo 

4 

l. 00000 

o.oooco 

-0.00000 

-0.00000 

-O.OOOCO 

-0.00003 

J » 
I 
l 

7 

8 

9 

10 

11 


2.00000 

2.00000 

0.03000 

-0.00030 

* 'j • 0 C 0 0 0 


2 

.73000 

• 6 1000 

. 50000 

-0.00003 

-0.00000 


3 

.56000 

. 50C00 

-O.OOOCO 

-0.00000 

— ^ • OCO V/C 


4 

.90000 

.72500 

-0.30000 

-0.00030 

-C .00000 




MODAL AMPLITUDES ■ 4 MODULUS , PHASE I 

PHASE.LT. 130 DEG AND PHASE . GT. -130 DEG 


N 

1 

M • 

-11 

M » 

-10 

M * 

-9 

7.00E-04 

143. 18 

3.35E-04 

-34.10 

2.94E-04 

143.62 

N 

1 

M « 

-3 

M » 

-7 

M * 

-b 

2. 34E-04 

-28.68 

2.34E-04 

154.01 

2.88E-04 

-23. 31 

2 



7.73E-04 

152.74 

1.87E-04 

-2*. 72 

N 

1 

M * 

-5 

M - 

-4 

M * 

- 3 

2. 94E-04 

159.35 

3.00E-04 

-18.02 

. 3.02E-04 

164. 60 

2 

9.23E-05 

157.46 

2.27E-05 

-23.42 

3.91E-05 

-13.11 

3 



3.45E-04 

161.26 

2.32E-04 

-16. 20 

N 

1 

H « 

-2 

M « 

-1 

M * 

0 

2 . 97E-04 

-12.32 

2.86E-04 

169.74 

2 . 3 2E- 04 . 

-7. 73 

2 

9. 71E-05 

167.92 

1.44E-04 

-9.82 

1 . b 4E-04 

1 72. 64 

3 

1.38E-04 

166.34 

1.65E-04 

-11.11 

1.56E-04 

-3. 54 

N 

1 

H « 

1 

• 

H * 

2 

H * 

3 

2.96E-04 

-5.23 

3.19E-04 

-2.78 

3.34E-04 

-. 40 

2 

1.49E-04 

175.16 

1.04E-04 

177.75 

4.62E-05 

-179. 22 

3 

l.blE-04 

174.05 

1.73E-04 

176.62 

2.04E-04 

179. 1 4 

N 

1 

M ■ 

4 

N * 

5 

M « 

6 

3. 38E-04 

1.90 

3.35E-04 

4. 09 

3.26E-04 

6.14 

2 

1. 32E-05 

-2.27 

6.92E-05 

3.35 

l. ICE-04 

5. 80 

3 

2. 43E-04 

-178.45 





N 

1 

H « 

7 

H » 

8 

M * 

9 

3. 10E -04 

3.04 

2.34E-04 

9.73 

2.42E-04 

11. 15 

2 

2.75E-05 

-174.37 





N 

1 

H * 

10 

M « 

11 



l. 57E-04 

12.22 

3.33E-04 

-167.21 




Boeing Commercial Airplane Company 
P.O. Box 3707 


Seattle, Washington 98124, May 31, 1974 


